منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] نسخ بيانات من داتاجريد فيو لاخري - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] نسخ بيانات من داتاجريد فيو لاخري (/showthread.php?tid=37140)

نسخ بيانات من داتاجريد فيو لاخري - محمد اسماعيل - 08-12-20

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


اريد نسخ بيانات من داتاجريد فيو لاخري حيث الاتي 

الاولي تحتوي علي اربع اعمدة 


[attachment=26117]

والثانية تحتوي علي 8 اعمدة هم في الواقع تكرار للداتاجريد الاولي ولكن لكي يتم تجميع البيانات بجوار بعض 


[attachment=26112]

ما ايدة تجميع البيانات من الداتاجريد فيو الاولي بالثانية بحيث تصبح الاعمدة التي تبدا داخل العمود الاول بحرف A  باول الداتاجريد فيو والتي تحمل رمزB بالجزء التاني بالداتاجريد فيو 2 علي نفس الاسم الخاص بيها

[attachment=26113]

ويصبح الشكل النهائي مع العلم يمكن اعمدة حرف A ان تكون اكتر او العكس ولكن الطلب كما هو  تجميع البيانات بجوار البعض حتي وان ظهرت بعض الحقول فارغة عند عدم تساوي الحقول بين A,B  ليس هاما المهم التجميع 


[attachment=26114]

حاولت بالكود التالي النتيجة طلعت بالشكل دة 


كود :
  For ii = 0 To DATAG_CLIENT.Rows.Count - 1



               If DATAG_CLIENT.Rows(ii).Cells(0).Value.ToString.Contains("A") Then
                   PRINTSHOW.DATGR_PRINT.Rows(ii).Cells(0).Value = DATAG_CLIENT.Rows(ii).Cells(2).Value
                   PRINTSHOW.DATGR_PRINT.Rows(ii).Cells(1).Value = DATAG_CLIENT.Rows(ii).Cells(3).Value
                   PRINTSHOW.DATGR_PRINT.Rows(ii).Cells(2).Value = DATAG_CLIENT.Rows(ii).Cells(4).Value
                   PRINTSHOW.DATGR_PRINT.Rows(ii).Cells(3).Value = DATAG_CLIENT.Rows(ii).Cells(5).Value

               End If

               If DATAG_CLIENT.Rows(ii).Cells(0).Value.ToString.Contains("B") Then


                   PRINTSHOW.DATGR_PRINT.Rows(ii).Cells(4).Value = DATAG_CLIENT.Rows(ii).Cells(2).Value
                   PRINTSHOW.DATGR_PRINT.Rows(ii).Cells(5).Value = DATAG_CLIENT.Rows(ii).Cells(3).Value
                   PRINTSHOW.DATGR_PRINT.Rows(ii).Cells(6).Value = DATAG_CLIENT.Rows(ii).Cells(4).Value
                   PRINTSHOW.DATGR_PRINT.Rows(ii).Cells(7).Value = DATAG_CLIENT.Rows(ii).Cells(5).Value

               End If


           Next


النتيجة بالشكل دة 

[attachment=26115]