السلام عليكم ورحمه الله وبركاته
لوسمحتم وانا باكتب هذا الكود ظهر الخطاء التالى
Dim ds As New DataSet
Dim stores As New DataTable
Dim id As New DataColumn
Dim name As New DataColumn
Dim code As New DataColumn
Dim address As New DataColumn
ds.Tables.Clear()
stores.Columns.Clear()
stores.Columns.Add("id", GetType(System.String))
stores.Columns.Add("name", GetType(System.String))
stores.Columns.Add("code", GetType(System.String))
stores.Columns.Add("address", GetType(System.String))
ds.Tables.Add("stores")
DataGridView1.setDataBinding(ds, "stores")
DataGridView1.Controls.Clear()
Dim sql As String = "select * from stores"
Dim da As New OleDbDataAdapter(sql, cnn)
Try
da.Fill(ds, "stores")
DataGridView1.DataSource = ds.Tables("stores")
Catch ex As Exception
MsgBox(ex.Message & "عرض")
End Try
ويظهر خط ازرق تحت الكلمه الزرقاء
ممكن حد يعلمنى وله خالص الشكر الخطاء فين