[messry]

(25-04-21, 04:10 AM)ADAM12 كتب : السلام عليكم
لدي جدول مبيعات بالشكل التالي



أريد تحويله إلى جدول آخر بهذا الشكل 



حيث أحتفظ فقط بمنتج أو اثنين حسب حاجتي و أعرضهم أفقيا  كما هو موضح بالصورة أعلاه

أنا أستخدم فيجوال بيسيك مع قاعدة بيانات أكسس

شكرا مسبقا

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

حاول التالي:

كود :

Dim da As New OleDbDataAdapter()
    Dim da1 As New OleDbDataAdapter()


      Dim dt As New DataTable()
      da.SelectCommand = New OleDbCommand("Select first(date) , first(client), first(product), sum(quantity) from table1 where product = ‘” & “product 1” & “’ and date = #” & Yourdate & “# order by product", cn)
      da.Fill(dt)

      Dim dt1 As New DataTable()
      Da1.SelectCommand = New OleDbCommand("Select first(date) , first(client), first(product), sum(quantity) from table1 where product = ‘” & “product 2” & “’ and date = #” & Yourdate & “# order by product", cn)
      Da1.Fill(dt1)
وهذه هي الجملة لالحاقها في الجدول الثاني
“insert into table2(f1,f2,f3,f4) values(dt.row(0).items(0), dt.row(0).items(1), dt.row(0).items(2), dt1.row(0).items(3))”

الكود غير مجرب لعطل في الفيجوال عندي

ربنا يوفقك