[ADAM12]

السلام عليكم
لدي جدول مبيعات بالشكل التالي



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



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

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

شكرا مسبقا

[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))”

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

ربنا يوفقك

[أسعد]

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



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



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

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

شكرا مسبقا

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

ما تريد عمله اسمه استعلام Crosstab او الاستعلام الجدولي


شاهد هذا الفيديو




وشاهد هذا الرابط اذا كنت تجيد اللغة الانجليزيه
Make summary data easier to read by using a crosstab query

[ADAM12]

شكرا لكما
سأجرب اقتراحيكما هذا المساء حال عودتي من العمل
جازاكما الله كل خير

[ADAM12]

أعتذر عن التأخر

بعد التدقيق بالطريقتين وجدت أنهما لا تصلحان لما أريد تطبيقه
فقد نسيت أن أخبركم أن الغرض من هذا طباعة تقرير بالريبورت فيور يكون فيه الجدول كما وضحته بالصورة الثانية
و أهم شيء أنني لا أحتاج لعرض جميع المنتجات بالجدول بل فقط منتجين اثنين

تحياتي