06-01-18, 12:58 AM
السلام عليكم
طلبت اكثر من مرة تعديل كود الحذف ولم يقم احد بالنظر بطلبي واكمالة الكود يتوقف علية برنامجي
حاولت كثير ولكن الكود يحذف ويعطي خطا لا ادري ما المشكلة
الكود الذي يعطي خطاء
ارفقت المشروع واريد التعديل علي كود الحذف
طلبت اكثر من مرة تعديل كود الحذف ولم يقم احد بالنظر بطلبي واكمالة الكود يتوقف علية برنامجي
حاولت كثير ولكن الكود يحذف ويعطي خطا لا ادري ما المشكلة
الكود الذي يعطي خطاء
كود :
Try
If DataGridView1.RowCount <= 0 Then
Exit Sub
End If
con.Open()
DataGridView1.ClearSelection()
Dim a As Integer
DataGridView1.Rows(DataGridView1.CurrentRow.Index).Selected = True
a = DataGridView1.Rows.GetLastRow(DataGridViewElementStates.Selected).ToString + 1
DataGridView1.Rows.RemoveAt(DataGridView1.CurrentRow.Index)
Validate()
DataGridView1.Refresh()
DataAdapter1.Update(DataSet1, "tb1,tb2")
DataSet1.AcceptChanges()
conn()
count()
con.Close()
MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح", 64 + 524288, "حذف سجل من كلا الجدولين")
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
ارفقت المشروع واريد التعديل علي كود الحذف