منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعدة في select distinct - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : مساعدة في select distinct (/showthread.php?tid=8848)

مساعدة في select distinct - karrdon - 10-05-13

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

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

مساعدة في select distinct - VB_Coder - 12-05-13

السلام عليكم

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

كود :
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

- تحياتي .