+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كشف التشابه بين بيانات صفين موجودين في اثنين datagridview (/showthread.php?tid=38760)
كشف التشابه بين بيانات صفين موجودين في اثنين datagridview - جيولوجي مبتدئ - 27-06-21
السلام عليكم ورحمة الله وبركاته
شباب عندي اثنين داتا قريدفيو وهما متشابهتان فقط الفرق في أسماء الأعمدة ولكن البيانات متشابهة من حيث النوع
سؤالي
إذا وجد بيانات صف موجود في 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
مع جزيل الشكر
دمتم بود
RE: كشف التشابه بين بيانات صفين موجودين في اثنين datagridview - c#dev - 28-06-21
(27-06-21, 10:48 PM)جيولوجي مبتدئ كتب : السلام عليكم ورحمة الله وبركاته
شباب عندي اثنين داتا قريدفيو وهما متشابهتان فقط الفرق في أسماء الأعمدة ولكن البيانات متشابهة من حيث النوع
سؤالي
إذا وجد بيانات صف موجود في datagridview1 مطابقة لبيانات صف موجود في datagridview3 أن يظلل الصفين بلون أخضر فقمت بإستخدام الكود التالي وينجج أحياناً ولكن أحياناً يفشل ,<<<<<<<<<< يفشل اذا الصف المشابه هو الصف الأول في datagridview3 أما إذا كان غير ذلك فالكود ناجح 100 \100
TryFor w4 As Integer = 0 To Me.DataGridView1.Rows.Count - 1For z4 As Integer = 0 To Me.DataGridView3.Rows.Count - 1If w4 <> z4 Then
If DataGridView3.Rows(z4).Cells("column20").Value = DataGridView1.Rows(w4).Cells("column8").Value ThenIf DataGridView3.Rows(z4).Cells("column21").Value = DataGridView1.Rows(w4).Cells("column9").Value ThenDataGridView3.Rows(z4).DefaultCellStyle.BackColor = Color.LightSeaGreenDataGridView1.Rows(w4).DefaultCellStyle.BackColor = Color.LightSeaGreenMsgBox("تشابه في القائمة الأولى والثالثة")Exit SubEnd IfEnd IfEnd IfNextNext
Catch ex As ExceptionEnd Try
مع جزيل الشكردمتم بود
احذف If w4 <> z4 Then
ولا تنسى تحذف End If الخاص بها
RE: كشف التشابه بين بيانات صفين موجودين في اثنين datagridview - جيولوجي مبتدئ - 29-06-21
السلام عليكم ورحمة الله وبركاته
شكراً لردك أخي
آسف لتأخري في الرد
اقمت بحذف If w4 <> z4 Then ولم ينجح الكود
لك جزيل الشكر
دمت بود
RE: كشف التشابه بين بيانات صفين موجودين في اثنين datagridview - جيولوجي مبتدئ - 01-07-21
السلام عليكم ورحمة الله وبركاته
والله ياشباب أكثر ثلاثة أيام أعمل ليل ونهار عند هذه النقطة وتوقف البرنامج بسببها
لكم جزيل الشكر
دمتم بود
RE: كشف التشابه بين بيانات صفين موجودين في اثنين datagridview - ابو انس - 01-07-21
وعليكم السلام ورحمة الله وبركاته
تفضل اخي هذا الكود
انا عملت عندي داتا جريد فيو عدد 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
NextRE: كشف التشابه بين بيانات صفين موجودين في اثنين datagridview - جيولوجي مبتدئ - 02-07-21
السلام عليكم ورحمة الله وبركاته
الشكر الجزيل لك أيها المبدع لقد وفرت علي الوقت الكثير لا أجد من الثناء ما أنثره لك
كما لا أنسى بقية الأخوة الذين جادوا بوقتهم
أخ أبو أنس الكود اشتغل 100 \100 ولكن حذفت منه السطر 'If I = II Then
لكم جزيل الشكر
دمتم بود