تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كشف التشابه بين بيانات صفين موجودين في اثنين datagridview
#1
السلام عليكم ورحمة الله وبركاته 
شباب عندي اثنين داتا قريدفيو وهما متشابهتان فقط الفرق في أسماء الأعمدة ولكن البيانات متشابهة من حيث النوع 
سؤالي 
إذا وجد بيانات صف موجود في datagridview1 مطابقة لبيانات صف موجود في datagridview3 أن يظلل الصفين بلون أخضر فقمت بإستخدام الكود التالي وينجج أحياناً ولكن أحياناً يفشل ,<<<<<<<<<< يفشل اذا الصف المشابه هو الصف الأول في datagridview3  أما إذا كان غير ذلك فالكود ناجح 100 \100 


    Try
            For w4 As Integer = 0 To Me.DataGridView1.Rows.Count - 1
                For z4 As Integer = 0 To Me.DataGridView3.Rows.Count - 1
                    If w4 <> z4 Then

                        If DataGridView3.Rows(z4).Cells("column20").Value = DataGridView1.Rows(w4).Cells("column8").Value Then
                            If DataGridView3.Rows(z4).Cells("column21").Value = DataGridView1.Rows(w4).Cells("column9").Value Then
                                DataGridView3.Rows(z4).DefaultCellStyle.BackColor = Color.LightSeaGreen
                                DataGridView1.Rows(w4).DefaultCellStyle.BackColor = Color.LightSeaGreen
                                MsgBox("تشابه في القائمة الأولى والثالثة")
                                Exit Sub
                            End If
                        End If
                    End If
                Next
            Next

        Catch ex As Exception
   End Try

مع جزيل الشكر
دمتم بود 
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#2
(27-06-21, 10:48 PM)جيولوجي مبتدئ كتب : السلام عليكم ورحمة الله وبركاته 
شباب عندي اثنين داتا قريدفيو وهما متشابهتان فقط الفرق في أسماء الأعمدة ولكن البيانات متشابهة من حيث النوع 
سؤالي 
إذا وجد بيانات صف موجود في datagridview1 مطابقة لبيانات صف موجود في datagridview3 أن يظلل الصفين بلون أخضر فقمت بإستخدام الكود التالي وينجج أحياناً ولكن أحياناً يفشل ,<<<<<<<<<< يفشل اذا الصف المشابه هو الصف الأول في datagridview3  أما إذا كان غير ذلك فالكود ناجح 100 \100 


    Try
            For w4 As Integer = 0 To Me.DataGridView1.Rows.Count - 1
                For z4 As Integer = 0 To Me.DataGridView3.Rows.Count - 1
                    If w4 <> z4 Then

                        If DataGridView3.Rows(z4).Cells("column20").Value = DataGridView1.Rows(w4).Cells("column8").Value Then
                            If DataGridView3.Rows(z4).Cells("column21").Value = DataGridView1.Rows(w4).Cells("column9").Value Then
                                DataGridView3.Rows(z4).DefaultCellStyle.BackColor = Color.LightSeaGreen
                                DataGridView1.Rows(w4).DefaultCellStyle.BackColor = Color.LightSeaGreen
                                MsgBox("تشابه في القائمة الأولى والثالثة")
                                Exit Sub
                            End If
                        End If
                    End If
                Next
            Next

        Catch ex As Exception
   End Try

مع جزيل الشكر
دمتم بود 

احذف If w4 <> z4 Then

ولا تنسى تحذف End If الخاص بها
الرد }}}
#3
السلام عليكم ورحمة الله وبركاته 
شكراً لردك أخي 
آسف لتأخري في الرد
اقمت بحذف   If w4 <> z4 Then  ولم ينجح الكود 

لك جزيل الشكر
دمت بود
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#4
السلام عليكم ورحمة الله وبركاته 

  والله ياشباب أكثر ثلاثة أيام  أعمل ليل ونهار عند هذه النقطة وتوقف البرنامج بسببها 



لكم جزيل الشكر 
دمتم بود
الرد }}}
تم الشكر بواسطة:
#5
وعليكم السلام ورحمة الله وبركاته
تفضل اخي هذا الكود
انا عملت عندي داتا جريد فيو عدد 2 وفي كل واحد عمودين ووهذا الكود فقط كل ما عليك تغيير الاسماء بما يتوافق مع برنامجك
كود :
   For I As Integer = 0 To DGV1.Rows.Count - 1
           For II As Integer = 0 To DGV2.Rows.Count - 1
               If I = II Then
                   If DGV1.Rows(I).Cells(0).Value = DGV2.Rows(II).Cells(0).Value And DGV1.Rows(I).Cells(1).Value _
                       = DGV2.Rows(II).Cells(1).Value Then

                       DGV1.Rows(I).DefaultCellStyle.BackColor = Color.LightSeaGreen
                       DGV2.Rows(II).DefaultCellStyle.BackColor = Color.LightSeaGreen
                   End If
               End If
           Next
       Next
سورس كود برنامج محاسبة ومبيعات احترافي  -  سورس كود تطبيق ارسال رصيد من الجوال B4A
سورس كود تطبيق مبيعات للجوال
تيليجرام   Abo_anas_kahwaji@
واتساب 00963951283515
الرد }}}
تم الشكر بواسطة: c#dev , ابراهيم ايبو , جيولوجي مبتدئ
#6
السلام عليكم ورحمة الله وبركاته 
الشكر الجزيل لك أيها المبدع لقد وفرت علي الوقت الكثير لا أجد من الثناء ما أنثره لك 
كما لا أنسى بقية الأخوة الذين جادوا بوقتهم 

أخ أبو أنس الكود اشتغل 100 \100 ولكن حذفت منه السطر    'If I = II Then



لكم جزيل الشكر 

دمتم بود 
الرد }}}
تم الشكر بواسطة: ابو انس


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 80 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 598 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  استعلام select عن مجموعة بيانات Adel27213 1 172 15-03-24, 01:11 AM
آخر رد: justforit
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  [VB.NET] تحديث بيانات فى كلاس من جدول سيكوال asdfar1977 6 184 26-02-24, 01:07 AM
آخر رد: asdfar1977
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 223 25-02-24, 11:26 PM
آخر رد: heem1986
  [C#.NET] طباعة بيانات داتا جرد فيو h2551996 0 83 25-02-24, 02:31 PM
آخر رد: h2551996
  [VB.NET] معرفة بيانات الجهاز محمد بوقزاحة 1 309 21-02-24, 11:44 PM
آخر رد: AHMED213
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي

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


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