30-04-14, 08:09 AM
وهذه محاولة اخرى بائت بالفشل
لوض عناوين القريد من جدول قاعدة البيانات حسب الاسم
لوض عناوين القريد من جدول قاعدة البيانات حسب الاسم
كود :
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
