تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] طلب تعديل كود
#1
Star 
مرحبا
ممكن احد يعدل لي ع هذا الكود الفكره اذاكانت البيانات في DataGridView1 = DataGridView2 يظهر لي اوك بس هنا المشكله ع طول يظهر لي كلمة ok
المشكله الثانية لا ينقل لي البيانات المختلفة لDataGridView3 ينقل لي البيانات المتشابه بس ويكررها 






كود :
       For Each r1 As DataGridViewRow In DataGridView1.Rows
           For Each r2 As DataGridViewRow In DataGridView2.Rows
               If r1.Cells(0).Value = r2.Cells(0).Value Then
                   MsgBox("ok")

                   For indx As Integer = 2 To 5

                       Dim val1 As Double = r1.Cells(indx).Value
                       Dim val2 As Double = r2.Cells(indx).Value

                       If r1.Cells(0).Value <> r2.Cells(0).Value Then
                           Form3.DataGridView3.Rows.Add(r1.Cells(0).Value, r1.Cells(1).Value,
r1.Cells(2).Value, r1.Cells(3).Value, r1.Cells(4).Value, r1.Cells(5).Value)  
                       Else
                           Form3.DataGridView3.Rows.Add(r2.Cells(0).Value, r2.Cells(1).Value, r2.Cells(2).Value, r2.Cells(3).Value,
r2.Cells(4).Value, r2.Cells(5).Value)
                           Form3.Show()
For i = 0 To Form3.DataGridView3.Rows.Count - 2
                               For j = Form3.DataGridView3.Rows.Count - 1 To i + 1 Step -1
                                   If Form3.DataGridView3.Rows(i).ToString = Form3.DataGridView3.Rows(j).ToString Then
                                       Form3.DataGridView3.Rows.RemoveAt(j)
 
الرد }}
تم الشكر بواسطة:
#2
(25-07-21, 02:04 PM)إليسار كتب : مرحبا
ممكن احد يعدل لي ع هذا الكود الفكره اذاكانت البيانات في DataGridView1 = DataGridView2 يظهر لي اوك بس هنا المشكله ع طول يظهر لي كلمة ok
المشكله الثانية لا ينقل لي البيانات المختلفة لDataGridView3 ينقل لي البيانات المتشابه بس ويكررها 






كود :
       For Each r1 As DataGridViewRow In DataGridView1.Rows
           For Each r2 As DataGridViewRow In DataGridView2.Rows
               If r1.Cells(0).Value = r2.Cells(0).Value Then
                   MsgBox("ok")

                   For indx As Integer = 2 To 5

                       Dim val1 As Double = r1.Cells(indx).Value
                       Dim val2 As Double = r2.Cells(indx).Value

                       If r1.Cells(0).Value <> r2.Cells(0).Value Then
                           Form3.DataGridView3.Rows.Add(r1.Cells(0).Value, r1.Cells(1).Value,
r1.Cells(2).Value, r1.Cells(3).Value, r1.Cells(4).Value, r1.Cells(5).Value)  
                       Else
                           Form3.DataGridView3.Rows.Add(r2.Cells(0).Value, r2.Cells(1).Value, r2.Cells(2).Value, r2.Cells(3).Value,
r2.Cells(4).Value, r2.Cells(5).Value)
                           Form3.Show()
For i = 0 To Form3.DataGridView3.Rows.Count - 2
                               For j = Form3.DataGridView3.Rows.Count - 1 To i + 1 Step -1
                                   If Form3.DataGridView3.Rows(i).ToString = Form3.DataGridView3.Rows(j).ToString Then
                                       Form3.DataGridView3.Rows.RemoveAt(j)
 

تفضل أخي هذا حسب ما فهمت منك


كود :
    For Each r1 As DataGridViewRow In DataGridView1.Rows
           For Each r2 As DataGridViewRow In DataGridView2.Rows
               If r1.Cells(+1).Value = r2.Cells(+1).Value Then
                   MsgBox("ok")

                   For indx As Integer = 2 To 5

                       Dim val1 As Double = r1.Cells(indx).Value
                       Dim val2 As Double = r2.Cells(indx).Value

                       If r1.Cells(0).Value <> r2.Cells(0).Value Then
                           Form3.DataGridView3.Rows.Add(r1.Cells(0).Value, r1.Cells(1).Value,
r1.Cells(2).Value, r1.Cells(3).Value, r1.Cells(4).Value, r1.Cells(5).Value)
                       Else
                           Form3.DataGridView3.Rows.Add(r2.Cells(0).Value, r2.Cells(1).Value, r2.Cells(2).Value, r2.Cells(3).Value,
r2.Cells(4).Value, r2.Cells(5).Value)
                           Form3.Show()
                           For i = 0 To Form3.DataGridView3.Rows.Count - 2
                               For j = Form3.DataGridView3.Rows.Count - 1 To i + 1 Step -1
                                   If Form3.DataGridView3.Rows(i).ToString = Form3.DataGridView3.Rows(j).ToString Then
                                       Form3.DataGridView3.Rows.RemoveA
الْحَمْدُ لِلَّهِ حَمْدًا كَثِيرًا طَيِّبًا مُبَارَكًا فِيهِ

رَبِّي أَرْزُقْنِي مُسْتَقْبَلاً أَجَمَلَ مِمَّا تَمَنَّيْتُ

وَاَجْعَل لِي فِيْ هَذِهِ الدُّنْيَا - أُنَاساً يَدْعُونَ لِي بَعْدَ أَنْ أَغِيْب

حسابي في تلكرام

الرد }}
تم الشكر بواسطة: اسامه الهرماوي , ابراهيم ايبو
#3
يعطيك العافية بس ما ضبط الكود 
لسى يعطينى الصفوف المتشابه انا ابغي الصفوف المختلفة يرسلها ل Datagridview3
الرد }}
تم الشكر بواسطة: ابراهيم ايبو
#4
ممكن كود لنقل البيانات المختلفة ل Datagridview3
الرد }}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] محتاج تعديل على الكود هدا AMAZ1972AMAZ 3 305 06-06-22, 06:31 PM
آخر رد: AMAZ1972AMAZ
  مشكلة في تعديل كود نيمو 2 245 24-05-22, 01:51 PM
آخر رد: نيمو
  [سؤال] تعديل كود بسيط للبحث عن ملفات ابو جمال 5 675 11-05-22, 05:47 PM
آخر رد: ابو جمال
  [VB.NET] تعديل كود حذف الملفات ابو جمال 2 407 29-04-22, 11:38 PM
آخر رد: ابو انس
  تعديل صورة مكان صورة محفوظة في قاعدة البيانات mustafa mohamed 2 836 26-03-22, 07:00 PM
آخر رد: mustafa mohamed
  [VB.NET] تعديل على كود بحث EMADSS 11 920 15-03-22, 08:52 AM
آخر رد: سعود
  مساعدة في تعديل صيغة التاريخ العطر الرايق 1 509 14-03-22, 05:35 AM
آخر رد: ابراهيم ايبو
Exclamation [VB.NET] رسالة خطأ عن تعديل بيانات في قاعدة بيانات عبدالكريم 1 524 11-02-22, 12:18 AM
آخر رد: اسامه الهرماوي
  استفسار بخصوص تعديل فاتورة المبيعات او المشتريات momani33 2 530 08-02-22, 06:27 PM
آخر رد: momani33
  [سؤال] رجاء اريد تعديل كود للتواصل مع قاعدة بيانات ب dao بدل oldbe mh66 0 559 05-02-22, 11:17 AM
آخر رد: mh66

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


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