12-05-13, 03:13 PM
السلام عليكم
- بالنسبة لجملة الإستعلام التي تظهر المجاميع لإسم معين :-
- أما بالنسبة إذا أردت أن تضع مجموع حقل من الحقول الموجودة في الأكتف ريبورت والتي عادة تكون في قسم ال Detail , أو في أي قسم , قم بالضغط على القسم ضغطتين سريعتين ثم أكتب في حدث الـ Fromat للقسم كود الجمع , مثلاً إذا كان في قسم الريبورت فوتر ليبل وتريد أن يكون المجموع فيه :
- أما إذا كانت المجاميع من داخل البرنامج , فتستطيع عمل هذا :
- تحياتي .
- بالنسبة لجملة الإستعلام التي تظهر المجاميع لإسم معين :-
كود :
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- تحياتي .
