طلب مساعدة في عملية البحث

            Dim SQLstr3 As String = "delete  FROM ResultTestinfoT where IdNoF =" & DGV1.CurrentRow.Cells(4).Value & " and RevisionNoF=" & DGV5.CurrentRow.Cells(0).Value & " and TestDateF='" & DGV6.CurrentRow.Cells(0).Value & "' and GroupTestNoF='" & DGV6.CurrentRow.Cells(1).Value & "' and TestNF='" & DGV6.CurrentRow.Cells(2).Value & "'"

            DAResultTestinfoT.SelectCommand.CommandText = SQLstr3

            dsResultTestinfoT.Clear()

            DAResultTestinfoT.Fill(dsResultTestinfoT, "ResultTestinfoT") 'تعبئة محتوى الجدول الى الداتاسيت 

            DGV6.DataSource = dsResultTestinfoT

            DGV6.DataMember = "ResultTestinfoT"

            MsgBox(" تم حذف التحليل :   " & s)

 

 

 

 

حيث ان  DGV6 هو داتاكردفيو    الذي اخذ منه قيمة التاريخ