[محمد اسماعيل]

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


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

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


   

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


   

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

   

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


   

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

كود :

  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

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