[aftfm]

وهذه محاولة اخرى بائت بالفشل

لوض عناوين القريد من جدول قاعدة البيانات حسب الاسم

كود :

Using MYDataAdapter As New OleDbDataAdapter("Select DISTINCT E_Name From tbl1", Con)
            Dim DataSet1 As New DataSet
            Call MYDataAdapter.Fill(DataSet1, "E_NameTable")
            For Each MYRow As DataRow In DataSet1.Tables("E_NameTable").Rows
                Dim b As String = MYRow.Item("E_Name")
                If String.IsNullOrEmpty(b) = Nothing Then
                    Re = b
                    MsgBox(Re)
                    Me.TextBox1.Text = b
                    'Me.DataGridView1.Rows.Clear()
                    'Me.DataGridView1.Columns.Clear()
                    'Me.DataGridView1.Refresh()
                    'For n As Integer = 1 To Me.TextBox1.Text
                    '    Me.DataGridView1.Columns.Add("Columns", n)
                    'Next
                    'For o As Integer = 0 To Me.TextBox1.TextLength - 1
                    '    Me.DataGridView1.Columns(o).Width = 30
                    'Next
                End If
            Next MYRow
        End Using