[محمد العامر]

أخي عبدالعزيز
الطريقة نجحت معي على ComboBox العادية ولكن على ComboBoxEdit  لم تنجح والكود التالي خاص بتعبئة ComboBoxEdit التابعة لـ Dev Express

كود :

   Public Sub fill_listbox(ByVal TBNames As String, ByVal ColmName As String, ByVal ListBoxName As DevExpress.XtraEditors.ListBoxControl)
       ListBoxName.Items.Clear()
       Dim DS As New DataSet
       Dim DA As New SqlDataAdapter
       DA = New SqlDataAdapter("Select * FROM " & TBNames & "", ConSql)
       DA.Fill(DS)
       Dim DT = DS.Tables(0)
       For I = 0 To DT.Rows.Count - 1
           ListBoxName.Items.Add(DT.Rows(I).Item("" & ColmName & ""))
       Next
   End Sub