منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

[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]

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد اسماعيل