تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف اظهرالمجموع التراكمي
#1
مرفق مثال :

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


الملفات المرفقة
.rar   ii.rar (الحجم : 29.1 ك ب / التحميلات : 15)
الرد }}}}
تم الشكر بواسطة:
#2
اين اساتذتنا الكرام

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



شاكرا ومقدرا للجميع
الرد }}}}
تم الشكر بواسطة:
#3
اهلا و سهلا بك
السؤال غير واضح بالنسبة لي ربما لقلة خبرتي بموضوع المحاسبة و الحساب .
احيل هذا السؤال لاخونا الاستاذ احمد عبدالعليم لاختصاصه بالمحاسبة .
سأعود قريباً ان شاء الله

الرد }}}}
#4
السلام عليكم ورحمة الله وبركاته

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

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


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 1 To MSHFlexGrid1.Rows 1
If MSHFlexGrid1.TextMatrix(I2) = 101 Or MSHFlexGrid1.TextMatrix(I2) = 102 Or MSHFlexGrid1.TextMatrix(I2) = 103 Then
sum1 
sum1 + (IIf(MSHFlexGrid1.TextMatrix(Ixcol) = ""0MSHFlexGrid1.TextMatrix(Ixcol)))
End If
Next
sumGrp1 
sum1
End 
Function

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

بالتوفيق 
محاسب / أحمد عبد العليم
الرد }}}}
#5
الف الف شكر لاستاذي الكريم  احمد عبدالعليم وجزاك الله الف خير/ هذا هو المطلوب .
الرد }}}}
تم الشكر بواسطة: ahmedabdelaliem


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم