Public Sub FILLCOMBOBOXITEMS1(ByVal TABLE As String, ByVal FIELD As String, ByVal COMBO As Object) On Error Resume Next Dim I As Integer Dim DS As New DataSet Dim str As String = "SELECT DISTINCT " & FIELD & " FROM " & TABLE Dim ADP As New SqlDataAdapter(str, con) DS.Clear() ADP.Fill(DS, "TBL") COMBO.Items.Clear() For I = 0 To DS.Tables("TBL").Rows.Count - 1 COMBO.Items.Add(DS.Tables("TBL").Rows(I).Item(0)) Next I ADP.Dispose() End Sub
الاعضاء الكرام لدي هذا الكود في الموديول ارجو منكم تفضلا توضيح كيف استخدمه في فورم لتعبئة combobox1 مثلا ولكم جزيل الشكر
تم النشر منذ (معدل)
Public Sub FILLCOMBOBOXITEMS1(ByVal TABLE As String, ByVal FIELD As String, ByVal COMBO As Object)
On Error Resume Next
Dim I As Integer
Dim DS As New DataSet
Dim str As String = "SELECT DISTINCT " & FIELD & " FROM " & TABLE
Dim ADP As New SqlDataAdapter(str, con)
DS.Clear()
ADP.Fill(DS, "TBL")
COMBO.Items.Clear()
For I = 0 To DS.Tables("TBL").Rows.Count - 1
COMBO.Items.Add(DS.Tables("TBL").Rows(I).Item(0))
Next I
ADP.Dispose()
End Sub
الاعضاء الكرام لدي هذا الكود في الموديول ارجو منكم تفضلا توضيح كيف استخدمه في فورم لتعبئة combobox1 مثلا ولكم جزيل الشكر
cod.txt
تم تعديل بواسطه ssayed111شارك هذا الرد
رابط المشاركة
شارك الرد من خلال المواقع ادناه