[محمد اسماعيل]

السلام عليكم

اريد التعديل علي كود الحذف حيث يقوم بالحذف ولا يحفظ البيانات


حاولت بالكود دة ولكن لاشيء

كود :

If DataGridView1.RowCount <= 0 Then
               MsgBox("الجدول فارغ ", 16 + 524288, "تنبيه")
               Exit Sub
           End If
           DataGridView1.ClearSelection()
           Dim a As Integer
           DataGridView1.Rows(DataGridView1.CurrentRow.Index).Selected = True
           a = DataGridView1.Rows.GetLastRow(DataGridViewElementStates.Selected).ToString + 1

           Application.DoEvents()

           DataGridView1.Rows.RemoveAt(DataGridView1.CurrentRow.Index)
           Validate()
           DataAdapter1.Update(DataSet1.Tables("tb1"))
           DataAdapter1.Update(DataSet1.Tables("tb2"))
           DataSet1.AcceptChanges()

جربت بالكود دةولكن  لاشيء  خطا ايضا

كود :

   If DataGridView1.RowCount <= 0 Then
               MsgBox("الجدول فارغ ", 16 + 524288, "تنبيه")
               Exit Sub
           End If
           DataGridView1.ClearSelection()
           Dim a As Integer
           DataGridView1.Rows(DataGridView1.CurrentRow.Index).Selected = True
           a = DataGridView1.Rows.GetLastRow(DataGridViewElementStates.Selected).ToString + 1

           Application.DoEvents()

           DataGridView1.Rows.RemoveAt(DataGridView1.CurrentRow.Index)
           Validate()
           DataAdapter1.Update(DataSet1.Tables("tb1,tb2"))
           DataSet1.AcceptChanges()