08-12-20, 12:42 PM
(آخر تعديل لهذه المشاركة : 08-12-20, 12:47 PM {2} بواسطة محمد اسماعيل.)
السلام عليكم ورحمة الله وبركاتة
اريد نسخ بيانات من داتاجريد فيو لاخري حيث الاتي
الاولي تحتوي علي اربع اعمدة
والثانية تحتوي علي 8 اعمدة هم في الواقع تكرار للداتاجريد الاولي ولكن لكي يتم تجميع البيانات بجوار بعض
ما ايدة تجميع البيانات من الداتاجريد فيو الاولي بالثانية بحيث تصبح الاعمدة التي تبدا داخل العمود الاول بحرف A باول الداتاجريد فيو والتي تحمل رمزB بالجزء التاني بالداتاجريد فيو 2 علي نفس الاسم الخاص بيها
ويصبح الشكل النهائي مع العلم يمكن اعمدة حرف A ان تكون اكتر او العكس ولكن الطلب كما هو تجميع البيانات بجوار البعض حتي وان ظهرت بعض الحقول فارغة عند عدم تساوي الحقول بين A,B ليس هاما المهم التجميع
حاولت بالكود التالي النتيجة طلعت بالشكل دة
النتيجة بالشكل دة
اريد نسخ بيانات من داتاجريد فيو لاخري حيث الاتي
الاولي تحتوي علي اربع اعمدة
والثانية تحتوي علي 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
النتيجة بالشكل دة