منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كيف اظهرالمجموع التراكمي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] كيف اظهرالمجموع التراكمي (/showthread.php?tid=17778)

كيف اظهرالمجموع التراكمي - iisys - 25-10-16

مرفق مثال :

ارجو المساعدة في معرفة : كيف اظهرالمجموع التراكمي

RE: كيف اظهرالمجموع التراكمي - iisys - 01-11-16

اين اساتذتنا الكرام

ارجو ان اجد الحل لديكم



شاكرا ومقدرا للجميع

RE: كيف اظهرالمجموع التراكمي - ahmedabdelaliem - 02-11-16

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

حياك الله اخي امير

اخي الكريم يرجى اضافة الاكواد الاتية الى مشروعك وتغيير كود الفوم لود او تحميل الفورم


PHP كود :
Private Sub Form_Load()
Call Text_Empty
Call vew

Label14.Caption = "المجموع الكلي//" & sum(3)
Text4.Text = sumGrp1(3)
Text6.Text = sumGrp2(3)
End Sub

Private Function sumGrp1(xcol)
Dim I As Integer
Dim sum1 As Double
sum1 = 0
For I = 1 To MSHFlexGrid1.Rows - 1
If MSHFlexGrid1.TextMatrix(I, 2) = 101 Or MSHFlexGrid1.TextMatrix(I, 2) = 102 Or MSHFlexGrid1.TextMatrix(I, 2) = 103 Then
sum1 = sum1 + (IIf(MSHFlexGrid1.TextMatrix(I, xcol) = "", 0, MSHFlexGrid1.TextMatrix(I, xcol)))
End If
Next
sumGrp1 = sum1
End Function

Private Function sumGrp2(xcol)
Dim I As Integer
Dim sum1 As Double
sum1 = 0
For I = 1 To MSHFlexGrid1.Rows - 1
If MSHFlexGrid1.TextMatrix(I, 2) = 201 Or MSHFlexGrid1.TextMatrix(I, 2) = 202 Or MSHFlexGrid1.TextMatrix(I, 2) = 203 Then
sum1 = sum1 + (IIf(MSHFlexGrid1.TextMatrix(I, xcol) = "", 0, MSHFlexGrid1.TextMatrix(I, xcol)))
End If
Next
sumGrp2 = sum1
End Function

بالتوفيق 


RE: كيف اظهرالمجموع التراكمي - iisys - 02-11-16

الف الف شكر لاستاذي الكريم  احمد عبدالعليم وجزاك الله الف خير/ هذا هو المطلوب .