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

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

حذف المكرر بين 2 جريد فيو - mahmoudshefooo - 05-05-22

السلام عليكم ورحمة الله وبركاته
لو سمحتوا كنت محتاج كود لحذ السطر المكرر بين 2 جريد فيو
فكرة البرنامج لمصنع يتم تسليم كل عامل بعض المعدات وبيكون فى عمال باقى ليهم معدات
انا عامل 2 جريد فيو واحد فيه المعدات اللى العامل استلمها والتانى المعدات المفروض تسلمها فانا محتاج كود يحذف المكرر بين المعدات المستلمة والمعدات المفروض تسليمها ليتبقى المعدات الباقية للعامل
وشكرا لكم ولو فى فكرة افضل ارجو الإفادة 
انا بستخدم فيجوال بيسك و sql
وشكراً لكم

RE: حذف المكرر بين 2 جريد فيو - mahmoudshefooo - 06-05-22

For Each row1 As DataGridViewRow In Guna2DataGridView3.Rows
For Each row2 As DataGridViewRow In Guna2DataGridView2.Rows
If row2.Cells(0).Value = row1.Cells(6).Value Then
Guna2DataGridView3.Rows.Remove(row1)

End If
Next
Next

دا الكود اللى استخدمته لتحديد الصف لكن اريد التعديل على كود الحذف
Guna2DataGridView3.Rows.Remove(row1)
لانه لا يلبى لى طلبى وهو حذف الصف المكرر

RE: حذف المكرر بين 2 جريد فيو - ابو انس - 07-05-22

وعليكم السلام ورحمة الله وبركاته
تفضل 
كود :
 For i As Integer = 0 To dgv1.Rows.Count - 1
           For ii As Integer = 0 To dgv2.Rows.Count - 1
               If ii <= dgv2.Rows.Count - 1 Then
                   If dgv1.Rows(i).Cells(0).Value = dgv2.Rows(ii).Cells(0).Value Then
                       If dgv2.Rows(ii).Cells(0).Value <> Nothing Then
                           dgv2.Rows.RemoveAt(ii)
                           ii = ii - 1
                       End If
                   End If
               End If

           Next

       Next


RE: حذف المكرر بين 2 جريد فيو - mahmoudshefooo - 09-05-22

(07-05-22, 02:45 AM)ابو انس كتب : وعليكم السلام ورحمة الله وبركاته
تفضل 
كود :
 For i As Integer = 0 To dgv1.Rows.Count - 1
           For ii As Integer = 0 To dgv2.Rows.Count - 1
               If ii <= dgv2.Rows.Count - 1 Then
                   If dgv1.Rows(i).Cells(0).Value = dgv2.Rows(ii).Cells(0).Value Then
                       If dgv2.Rows(ii).Cells(0).Value <> Nothing Then
                           dgv2.Rows.RemoveAt(ii)
                           ii = ii - 1
                       End If
                   End If
               End If

           Next

       Next

شكراً جداً يا ابو انس وجزاك الله كل خير

RE: حذف المكرر بين 2 جريد فيو - ابو انس - 09-05-22

(09-05-22, 01:39 AM)mahmoudshefooo كتب :
(07-05-22, 02:45 AM)ابو انس كتب : وعليكم السلام ورحمة الله وبركاته
تفضل 
كود :
 For i As Integer = 0 To dgv1.Rows.Count - 1
           For ii As Integer = 0 To dgv2.Rows.Count - 1
               If ii <= dgv2.Rows.Count - 1 Then
                   If dgv1.Rows(i).Cells(0).Value = dgv2.Rows(ii).Cells(0).Value Then
                       If dgv2.Rows(ii).Cells(0).Value <> Nothing Then
                           dgv2.Rows.RemoveAt(ii)
                           ii = ii - 1
                       End If
                   End If
               End If

           Next

       Next

شكراً جداً يا ابو انس وجزاك الله كل خير
عفوا mahmoudshefooo