10-05-14, 02:04 PM
السلام عليكم ورحمة الله و بركاته
هذا اجراء لارسال بيانات حقل بدون تكرار الى اداة ListBox
المطلوب تعديل الكود لارسال بيانات الحقل الى العمود الاول في الداتا قريد
هذا اجراء لارسال بيانات حقل بدون تكرار الى اداة ListBox
المطلوب تعديل الكود لارسال بيانات الحقل الى العمود الاول في الداتا قريد
كود :
Using MYDataAdapter As New OleDbDataAdapter("Select DISTINCT Tar FROM tbl1", Con)
Call DataSet2.Clear()
Me.ListBox1.Items.Clear()
'==========
Call MYDataAdapter.Fill(DataSet2, "TarTable")
For Each MYRow As DataRow In DataSet2.Tables("TarTable").Rows
Dim a As String = MYRow.Item("Tar")
If String.IsNullOrEmpty(a) = Nothing Then
ListBox1.Items.Add(a)
End If
Next
End Using