تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] نسخ بيانات من داتاجريد فيو لاخري
#1
السلام عليكم ورحمة الله وبركاتة 


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

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


   

والثانية تحتوي علي 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


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

   


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تصدير بيانات DataGridView1 الى ملف Excel mr_hso 4 164 20-01-21, 10:15 PM
آخر رد: atefkhalf2004
  [سؤال] عن إمكانية استخدام قاعدة بيانات أكسس من سيرفر خارجي ADAM12 0 57 17-01-21, 06:19 PM
آخر رد: ADAM12
Information سؤال (قاعدة بيانات سيكوال سرفر علي النت) abdou 1 118 09-01-21, 09:43 PM
آخر رد: abdou
  حفظ بيانات في جدولين في sql Mohammed Nafa 5 237 03-01-21, 09:06 AM
آخر رد: سعود
  [VB.NET] ترحيل بيانات muaamar 3 256 17-12-20, 08:44 PM
آخر رد: muaamar
  تصدير بيانات من برنامج بالفيجوال بيسك الى ال EXCEL mohammed_abdu 1 246 16-12-20, 02:29 PM
آخر رد: nrkarat
  [VB.NET] بخصوص الربط بقواعد بيانات اكسس السيد جمال السيد 1 205 14-12-20, 12:34 PM
آخر رد: سعود
  [سؤال] ازاي اضيف البوم صور داخل قاعدة بيانات الاكسس حسن الجلب 1 267 05-12-20, 01:39 AM
آخر رد: سعود
  دمج حقلين فى قاعدة بيانات يظهر فى TextBox فى الفيجوال بسك sherf 2 290 28-11-20, 02:06 PM
آخر رد: Anas Mahmoud
  نسخ قاعدة بيانات sql بشكل آلي باستخدام تايمر كريم عبودي 2 255 27-11-20, 05:46 PM
آخر رد: كريم عبودي

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


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