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

واجهتني مشكلة كبيرة في برنامج اكتيف ريبورت
وهي ان عندي اصناف كتير وليكن 20 نوع بنطلون باختلاف الالوان و50 نوع قميص بمختلف الالوان في التقرير اريد جمع عدد البنطلونات لوحدهم والقمصان لوحدهم
هكذا
اسم الصنف كود الصنف الكمية
بنطلون ازرق 6766 2
بنطلون احمر 6766 5
بنطلون اخضر 6766 1
المجموع 8
قميص ازرق 6766 7
قميص احمر 6766 1
قميص اخضر 6766 5
المجموع 13
وهكذا مع باقي الاصناف
مرفق برنامج للتعديل

السلام عليكم

الموضوع كان هيكون سهل كتير فى كل التقارير اذا كان هناك .... مجاميع للاصناف

بمعنى اخر

اعمل مجموعة رئيسية ويندرج منها مجموعة فرعية ....

مثال

البناطيل تكون مجموعة 20 ( مثلا )
القميص تكون مجموعة 21 ( مثلا )

يندرج تحتها 01 مثلا لون ازرق و 02 لون اسود ... وهكذا

وبالتالى 20-01-001 يكون بنطلون - لون ازرق - مقاس 42
او
20-01-002 يكون بنطلون - لون اسود -مقاس 32

وهكذا

وده هيساعدك فى بناء كل التقارير

تحياتى

اشكرك اخي ABO.BANCIANA

انا توصلت لنصف الحل
هكذا


Private Sub ActiveReport_ReportStart()

SQL = "SELECT Count(xxx) as rr,xx.xx,xx.xx,xx FROM xx GROUP BY xx.xx,xx.xx,xx.xx,xx"

اريد الناتج يظهر في تكست
ولاكن تواجهني مشكلة هنا ما الحل

text1.Text = SQL ! rr


End Sub

تفضل أخي التعديل على البرنامج

تمنيات لكم بالفائدة

استاذ ورئيس قسم