تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
احبتى فى الله هل فى هذا الكود خطأ
#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()
الرد
تم الشكر بواسطة:
#2
هل تريد حذف كل السطور عدا المحدد ام الحذف من السجل الاول الى السجل المحدد .

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

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 
الرد



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم