28-10-19, 04:39 AM
اخبتى دام الله عليكم محبتنا لكم وتقديرنا لشخصكم
فى هذا الكود عندما احذف صف فى الداتا جريد فيو وليكن رقم 3 يحذف بالترتيب رقم 1 وهكذا وليس الرقم المحدد او المظلل فهل فيه خطأ انا غافل عن
ارجو المساعده احبتى
فى هذا الكود عندما احذف صف فى الداتا جريد فيو وليكن رقم 3 يحذف بالترتيب رقم 1 وهكذا وليس الرقم المحدد او المظلل فهل فيه خطأ انا غافل عن
ارجو المساعده احبتى
كود :
For i = 0 To dgv_BOLESA.Rows.Count - 1
Dim cmdimpdett_ As New OleDbCommand
With cmdimpdett_
.Connection = con
.CommandType = CommandType.Text
.CommandText = " delete * FROM ohda_det where TASFEA_CODE = " & Val(dgv_BOLESA.Rows(i).Cells(0).Value)
'.Parameters.Add(New OleDb.OleDbParameter("@TASFEA_CODE", OleDb.OleDbType.Integer)).Value = dgv_BOLESA.CurrentRow.Cells(0).Value
End With
If con.State = 1 Then con.Close()
con.Open()
cmdimpdett_.ExecuteNonQuery()