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

[asemshahen5]

هل تريد حذف كل السطور عدا المحدد ام الحذف من السجل الاول الى السجل المحدد .

حذف الكل عدى السطر المحدد :

PHP كود :

       For i = 0 To dgv_BOLESA.Rows.Count - 1
            If i = dgv_BOLESA.CurrentRow.Index Then
                Continue For
            End If
            'كود الحذف'
        Next 


حذف من السجل الاول الى السجل المحدد :

PHP كود :

       For i = dgv_BOLESA.CurrentRow.Index To 0 Step -1
            If dgv_BOLESA.CurrentRow.Index = i Then
                Continue For
            End If
            'كود الحذف'
        Next