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

بسم الله
اخوانى المبرمجين لو تتفظلو وتقولولي كيف :
مساعدة في select distinctولكن ارغب فى النتائج تكون مجموعة في التقرير
اانا اشتغل على جدول به بيانات كتيرة وحقول كتيرة
يعنى لما اطلب النتيجة تاتينى مجموع السجلات اللى بنفس الاسم
يعنى مجاميع

وحاجة تانيه في الاكتف ريبورت2.0
هل يمكن ان احصل على خانة تقوم بجمع اتنان من المجاميع في الريبورت فوتر
يعنى عندى اتنان مجاميع اريد حقل جديد يكون مجموعهم مع بعض في الريبورت فوتر
والسلام عليكم ورحمة الله

السلام عليكم

- بالنسبة لجملة الإستعلام التي تظهر المجاميع لإسم معين :-

كود :

RS.CursorLocation = adUseClient

RS.Open "Select SUM(Total) as Total From (Select Distinct Name,Total From Table1 Where Name ='VB_Coder')", DB, adOpenDynamic, adLockOptimistic

If RS.RecordCount > 0 Then

   MsgBox RS!Total

Else

   MsgBox "لاتوجد سجلات"

End If

- أما بالنسبة إذا أردت أن تضع مجموع حقل من الحقول الموجودة في الأكتف ريبورت والتي عادة تكون في قسم ال Detail , أو في أي قسم , قم بالضغط على القسم ضغطتين سريعتين ثم أكتب في حدث الـ Fromat للقسم كود الجمع , مثلاً إذا كان في قسم الريبورت فوتر ليبل وتريد أن يكون المجموع فيه :

كود :

Label1.Caption = Val(Label1.Caption) + Val(Field1.Text)

- أما إذا كانت المجاميع من داخل البرنامج , فتستطيع عمل هذا :

كود :

ActiveReport1.Label1.Caption = Total

- تحياتي .

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

karrdon

VB_Coder