منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
احبتى فى الله هل فى هذا الكود خطأ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : احبتى فى الله هل فى هذا الكود خطأ (/showthread.php?tid=31878)



احبتى فى الله هل فى هذا الكود خطأ - خالد كامل1 - 28-10-19

اخبتى دام الله عليكم محبتنا لكم وتقديرنا لشخصكم
فى هذا الكود عندما احذف صف فى الداتا جريد فيو وليكن  رقم 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()



RE: احبتى فى الله هل فى هذا الكود خطأ - asemshahen5 - 28-10-19

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

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

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