17-11-16, 10:23 PM
اريد ان احذف من قاعدة البيانات كل الصفوف اللي حصلهم تشيك في الداتا جريد فيو
هذا الكود لا يعمل الا علي صف واحد فقط
For i As Integer = 0 To DGVTest.Rows.Count - 1
Dim c As Boolean
c = DGVTest.Rows(i).Cells(3).Value
If c = True Then
Dim rw As DataGridViewRow
rw = DGVTest.Rows(i)
Dim idx As Integer = DGVTest(2, DGVTest.Rows(i).Index).Value.ToString
Dim d As New DAL
d.Dataedit(String.Format("Delete from PT where PT_Code={0} and PT_Date=#{1}#", idx, firstdate.Value.ToString("MM/dd/yyyy")))
d.Dataedit(String.Format("Delete from Result where PT_code={0} and test_date=#{1}#", idx, firstdate.Value.ToString("dd/MM/yyyy")))
DGVTest.Rows.Remove(rw)
Else
MsgBox("من فضلك اختر صف ليتم حذفه", MsgBoxStyle.Information)
End If
Next
هذا الكود لا يعمل الا علي صف واحد فقط
For i As Integer = 0 To DGVTest.Rows.Count - 1
Dim c As Boolean
c = DGVTest.Rows(i).Cells(3).Value
If c = True Then
Dim rw As DataGridViewRow
rw = DGVTest.Rows(i)
Dim idx As Integer = DGVTest(2, DGVTest.Rows(i).Index).Value.ToString
Dim d As New DAL
d.Dataedit(String.Format("Delete from PT where PT_Code={0} and PT_Date=#{1}#", idx, firstdate.Value.ToString("MM/dd/yyyy")))
d.Dataedit(String.Format("Delete from Result where PT_code={0} and test_date=#{1}#", idx, firstdate.Value.ToString("dd/MM/yyyy")))
DGVTest.Rows.Remove(rw)
Else
MsgBox("من فضلك اختر صف ليتم حذفه", MsgBoxStyle.Information)
End If
Next
