[خالد كامل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()