18-12-17, 04:44 PM
السلام عليكم
اريد التعديل علي كود الحذف حيث يقوم بالحذف ولا يحفظ البيانات
حاولت بالكود دة ولكن لاشيء
جربت بالكود دةولكن لاشيء خطا ايضا
اريد التعديل علي كود الحذف حيث يقوم بالحذف ولا يحفظ البيانات
حاولت بالكود دة ولكن لاشيء
كود :
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()