[elgokr]

كل ما عليك اخى الفاضل

استبدال كل كود الفوم 8 بالكود التالى

كود :

Imports System.Data.OleDb

Public Class Form8

   Dim con As New OleDbConnection("provider=microsoft.ACE.OLEDB.12.0; data source=database.accdb")
   Dim cmd As New OleDbCommand()
   Dim da As New OleDbDataAdapter()
   Dim dt As New DataTable
   Sub load_date()
       dt.Clear()
       cmd = New OleDbCommand("SELECT [رقم الايدي], m, [تاريخ تعين الدرس], [الساعه], [عدد الدروس], [حضور/غياب] FROM table2 WHERE m=@m ", con)
       cmd.Parameters.Add(New OleDbParameter("@m", OleDbType.VarChar)).Value = Label1.Text
       da = New OleDbDataAdapter(cmd)
       da.Fill(dt)
   End Sub
   Sub save_date()
       Dim save As New OleDbCommandBuilder(da)
       save.QuotePrefix = "["
       save.QuoteSuffix = "]"
       da.Update(dt)
       dt.AcceptChanges()
   End Sub
   Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       load_date()
       DataGridView1.DataSource = dt
       DataGridView1.Refresh()
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If (String.IsNullOrWhiteSpace(TextBox1.Text) Or String.IsNullOrWhiteSpace(MaskedTextBox1.Text) Or String.IsNullOrWhiteSpace(TextBox3.Text) Or String.IsNullOrWhiteSpace(TextBox4.Text)) Then


           Return
       End If
       Dim pos1 As String = BindingContext(dt).Position
       dt.Rows(pos1).Item(1) = TextBox1.Text
       dt.Rows(pos1).Item(2) = MaskedTextBox1.Text
       dt.Rows(pos1).Item(3) = TextBox3.Text
       dt.Rows(pos1).Item(4) = TextBox4.Text


       save_date()

   End Sub

   Private Sub DataGridView1_MouseClick(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseClick
       Dim pos As String = BindingContext(dt).Position
       TextBox1.Text = dt.Rows(pos).Item(1).ToString()
       MaskedTextBox1.Text = dt.Rows(pos).Item(2).ToString()
       TextBox3.Text = dt.Rows(pos).Item(3).ToString()
       TextBox4.Text = dt.Rows(pos).Item(4).ToString()
       If dt.Rows(pos).Item(2).ToString() = "" Then
           MaskedTextBox1.Text = ""
           Exit Sub
       End If
       MaskedTextBox1.Text = Convert.ToDateTime(dt.Rows(pos).Item(2).ToString()).ToString("yyyy/MM/dd")
   End Sub
End Class

تم ترتيب وعمل الكود بناءاً على الطريقة التى تستخدمها

حتى لا تشعر بمتاهة فى التعامل مع الامر

تحياتى لك

وتمنياتى لك التوفيق