[جيولوجي مبتدئ]

السلام عليكم ورحمة الله وبركاته 
شباب عندي اثنين داتا قريدفيو وهما متشابهتان فقط الفرق في أسماء الأعمدة ولكن البيانات متشابهة من حيث النوع 
سؤالي 
إذا وجد بيانات صف موجود في 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

مع جزيل الشكر

دمتم بود 

[c#dev]

(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 الخاص بها

[جيولوجي مبتدئ]

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

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

[جيولوجي مبتدئ]

السلام عليكم ورحمة الله وبركاته 

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



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

[ابو انس]

وعليكم السلام ورحمة الله وبركاته
تفضل اخي هذا الكود
انا عملت عندي داتا جريد فيو عدد 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

[جيولوجي مبتدئ]

السلام عليكم ورحمة الله وبركاته 
الشكر الجزيل لك أيها المبدع لقد وفرت علي الوقت الكثير لا أجد من الثناء ما أنثره لك 
كما لا أنسى بقية الأخوة الذين جادوا بوقتهم 

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



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

دمتم بود