28-03-19, 06:25 PM
السلام عليكم ورحمة الله وبركاته
إخوتي أحناج إلى حل في مشكلة برمجية واقع بها وهي أن البرنامج عند إستدعاء جدول به حقول فارغ وعرضة في الجدول لا ينتج لي خطأ
ولاكن عندما أنقر على صف يحوي حقل فارغ لتفريغة في حقول text ينتج لي خطأ حيث أن البرنامج غير قادر على إستدعاء الحقل
فما الحل رجاءاً
الأكواد
Dim con As New OleDbConnection("provider=Microsoft.Ace.OLEDB.12.0;" & "data source=" & Application.StartupPath & "\database.accdb")
Dim da As OleDbDataAdapter
Dim dt As DataTable
---------------------------------------------------------------------------------------------
Sub load_data(ByVal tablechose As String)
da = New OleDbDataAdapter("Select * from " & tablechose & " order by id", con)
dt = New DataTable
da.Fill(dt)
DataGridView1.DataSource = dt
DataGridView1.Columns(0).HeaderText = "رقم التسلسل"
DataGridView1.Columns(0).Width = 40
DataGridView1.Columns(1).HeaderText = "إسم الطالب"
DataGridView1.Columns(2).HeaderText = "رفم القيد"
DataGridView1.Columns(3).HeaderText = "الفصل الدراسي"
DataGridView1.Columns(4).HeaderText = "مادة1"
DataGridView1.Columns(5).HeaderText = "مادة2"
End Sub
---------------------------------------------------------------------------------------------------------------
Private Sub DataGridView1_MouseClick(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseClick
Dim posesion As Integer = BindingContext(dt).Position
TextBox1.Text = dt.Rows(posesion).Item(1)
TextBox2.Text = dt.Rows(posesion).Item(2)
TextBox3.Text = dt.Rows(posesion).Item(3)
TextBox4.Text = dt.Rows(posesion).Item(4)
TextBox5.Text = dt.Rows(posesion).Item(5)
End Sub