عرض البيانات في كمبوبوكس ارجو المساعده ....

تم حل المشكله

بارك الله فيكم

السلام عليكم

أعطيك مثالاً من برمجتي حول تعبئة (الجنسيات) في Combobox:

    Private Sub GetNationalities()
        Dim GSQl As String = "select * from nationalities"
        Dim GAdapter As New OleDbDataAdapter(GSQl, Con)
        Dim GDataSet As New DataSet
        Dim NatCounter As Integer = 0
        Dim RowsCount As Integer

        cmbNationality.Items.Clear()

        If Con.State = ConnectionState.Closed Then
            Con.Open()
            GAdapter.Fill(GDataSet, "Nat")
            RowsCount = GDataSet.Tables("Nat").Rows.Count

            If RowsCount <= 0 Then
                MsgBox("لم يتم تسجيل أية جنسية", MsgBoxStyle.Critical, "عذراً")
                GDataSet.Reset()
                Con.Close()
            Else
                For NatCounter = 0 To RowsCount - 1
                    With cmbNationality
                        .Items.Add(GDataSet.Tables("Nat").Rows(NatCounter).Item("EmpNationality"))
                    End With
                Next
                GDataSet.Reset()
                Con.Close()
            End If
        Else
            GAdapter.Fill(GDataSet, "Nat")
            RowsCount = GDataSet.Tables("Nat").Rows.Count

            If RowsCount <= 0 Then
                GDataSet.Reset()
                Con.Close()
            Else
                For NatCounter = 0 To RowsCount - 1
                    With cmbNationality
                        .Items.Add(GDataSet.Tables("Nat").Rows(NatCounter).Item("EmpNationality"))
                    End With
                Next
                GDataSet.Reset()
                Con.Close()
            End If
        End If
    End Sub

حيث أن cmbNationality هو اسم الـCombobox.

أتمنى أن يفيدك.