[عبد العزيز البسكري]

إذا كانت أخي محمد العامر كومبوبوكس واحدة أو اثنتين .. لماذا تعقّد الأمور

قم بتعبئتها بالطريقة المباشرة كمثال

كود :

           Private Sub Fill_Items_ComboBoxEdit()
        Try
            Me.ListBoxName.Properties.Items.Clear()
            Dim InfoString As String = "SELECT DISTINCT ITEMS_Name From TBL_ITEMS"
            Dim InfoAdapter As OleDbDataAdapter = New OleDbDataAdapter(InfoString, Conne)
            Dim InfoTable As DataSet = New DataSet
            InfoTable.Clear()
            InfoAdapter.Fill(InfoTable, "TBL_ITEMS")
            For Each rw As DataRow In InfoTable.Tables("TBL_ITEMS").Rows
                Me.ListBoxName.Properties.Items.Add(rw(0).ToString())
            Next
        Catch ex As Exception
            XtraMessageBox.Show("خطأ غير متوقّع" & ex.Message)
        End Try
    End Sub  

أو أيضا بطريقة مباشرة ..

كود :

   Private Sub Fill_Items_ComboBoxEdit()
       Try
           Me.CmbItemsCategory.Properties.Items.Clear()
           Dim Adp As New OleDb.OleDbDataAdapter("SELECT DISTINCT CATEGORY_Name From TBL_CATEGORY", Conne_2020)
           Dim Ds As New DataSet
           Adp.Fill(Ds)
           Dim Dt = Ds.Tables(0)
           For I = 0 To Dt.Rows.Count - 1
               Me.CmbItemsCategory.Properties.Items.Add(Dt.Rows(I).Item("CATEGORY_Name"))
           Next
       Catch ex As Exception
           XtraMessageBox.Show("خطأ غير متوقّع" & ex.Message)
       End Try
   End Sub

تحياتي