[hatan]

عدلت لك الكود بناء على طريقة مساعدة أحد الأعضاء لي سابقا

هذا كود الفورم 1

كود :

Imports System.Data.OleDb

Public Class Form1

   Dim ConStr As String = ("Provider=Microsoft.jet.oledb.4.0;" & "Data source =" & Application.StartupPath & "\MyData.mdb")
   Dim Conn As New OleDbConnection(ConStr)

   Dim DataTable1 As New DataTable
   Dim SQLStr As String = "SELECT * From Table1"
   Dim DataAdapter1 As OleDbDataAdapter

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       DataAdapter1 = New OleDbDataAdapter(SQLStr, Conn)
       DataAdapter1.Fill(DataTable1)

       TextBox1.DataBindings.Add("Text", DataTable1, "Nom")
       TextBox2.DataBindings.Add("Text", DataTable1, "Prenom")
       TextBox3.DataBindings.Add("Text", DataTable1, "Age")
       TextBox4.DataBindings.Add("Text", DataTable1, "Adresse")
       TextBox5.DataBindings.Add("Text", DataTable1, "Tel")
       TextBox6.DataBindings.Add("Text", DataTable1, "Groupage")
       TextBox7.DataBindings.Add("Text", DataTable1, "atcd")
       TextBox8.DataBindings.Add("Text", DataTable1, "Observation")
       TextBox9.DataBindings.Add("Text", DataTable1, "Traitement")

       ChangePosition()
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Me.BindingContext(DataTable1).Position += 1
       ChangePosition()
   End Sub

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       Me.BindingContext(DataTable1).Position -= 1
       ChangePosition()
   End Sub

   Public Sub ChangePosition()
       Label4.Text = Me.BindingContext(DataTable1).Position + 1 & "/" & Me.BindingContext(DataTable1).Count
       If Me.BindingContext(DataTable1).Position >= 0 Then
           Button6.Enabled = True
           Button8.Enabled = True
       Else
           Button6.Enabled = False
           Button8.Enabled = False
       End If
   End Sub

   Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
       Me.Hide()

       Using frm2 As New Form2
           frm2.Button4.Text = "Ajouter"
           frm2.DataTable1 = Me.DataTable1
           frm2.BindingContext = Me.BindingContext
           frm2.BindingContext(DataTable1).AddNew()
           Me.Hide()
           If frm2.ShowDialog() = Windows.Forms.DialogResult.OK Then
               Me.BindingContext(DataTable1).EndCurrentEdit()
               If DataUpdate() Then
                   DataUpdate()
                   DataTable1.Clear()
                   DataAdapter1.Fill(DataTable1)
                   Me.BindingContext(DataTable1).Position = Me.BindingContext(DataTable1).Count - 1
                   ChangePosition()
                   MsgBox("تمت الإضافة و الحفظ بنجاح")
               End If
           Else
               Me.BindingContext(DataTable1).CancelCurrentEdit()
           End If
       End Using

       Me.Show()
   End Sub

   Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
       If MsgBox("هل تريد الحذف؟", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
           Me.BindingContext(DataTable1).RemoveAt(Me.BindingContext(DataTable1).Position)
           DataUpdate()
           ChangePosition()
       End If
   End Sub

   Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
       Me.Hide()

       Using frm2 As New Form2
           frm2.Button4.Text = "Modifier"

           frm2.DataTable1 = Me.DataTable1
           frm2.BindingContext = Me.BindingContext
           If frm2.ShowDialog() = Windows.Forms.DialogResult.OK Then
               Me.BindingContext(DataTable1).EndCurrentEdit()
               If DataUpdate() Then
                   MsgBox("تم التعديل و الحفظ بنجاح")
               End If
           Else
               Me.BindingContext(DataTable1).CancelCurrentEdit()
           End If
       End Using

       Me.Show()
   End Sub

   Private Function DataUpdate() As Boolean
       Try
           Me.BindingContext(DataTable1).EndCurrentEdit()
           Dim save As New OleDbCommandBuilder(DataAdapter1)
           DataAdapter1.Update(DataTable1)
           DataTable1.AcceptChanges()
           Return True
       Catch ex As Exception
           MsgBox(ex.Message)
           Return False
       End Try
   End Function

   Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
       Dim nom = InputBox("Entrez le nom:")
       If nom.Trim <> "" Then
           Dim i As Integer
           For i = 0 To DataTable1.Rows.Count - 1
               If DataTable1.Rows(i)("Nom").ToString.ToLower.Contains(nom.ToLower) Then
                   Me.BindingContext(DataTable1).Position = i
                   ChangePosition()
                   Exit Sub
               End If
           Next
           If i = DataTable1.Rows.Count Then
               MsgBox("لا يوجد")
           End If
       End If
   End Sub

End Class

هذا كود الفورم 2

كود :

Public Class Form2

   Public DataTable1 As DataTable

   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       TextBox1.DataBindings.Add("Text", DataTable1, "Nom")
       TextBox2.DataBindings.Add("Text", DataTable1, "Prenom")
       TextBox3.DataBindings.Add("Text", DataTable1, "Age")
       TextBox4.DataBindings.Add("Text", DataTable1, "Adresse")
       TextBox5.DataBindings.Add("Text", DataTable1, "Tel")
       TextBox6.DataBindings.Add("Text", DataTable1, "Groupage")
       TextBox7.DataBindings.Add("Text", DataTable1, "atcd")
       TextBox8.DataBindings.Add("Text", DataTable1, "Observation")
       TextBox9.DataBindings.Add("Text", DataTable1, "Traitement")
   End Sub

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       If TextBox1.Text.Trim = "" Then
           MsgBox("Entrez le nom")
           Exit Sub
       End If
       Me.DialogResult = Windows.Forms.DialogResult.OK
   End Sub

   Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
       Close()
   End Sub

End Class

أنتظر ردك ................................................