[aftfm]

السلام عليكم ورحمة الله و بركاته

هذا اجراء لارسال بيانات حقل بدون تكرار الى اداة 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