منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

شكراً جداً يا ابو انس وجزاك الله كل خير
(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