25-10-16, 11:20 AM
01-11-16, 05:34 PM
اين اساتذتنا الكرام
ارجو ان اجد الحل لديكم
شاكرا ومقدرا للجميع
ارجو ان اجد الحل لديكم
شاكرا ومقدرا للجميع
02-11-16, 01:25 AM
السلام عليكم ورحمة الله وبركاته
حياك الله اخي امير
اخي الكريم يرجى اضافة الاكواد الاتية الى مشروعك وتغيير كود الفوم لود او تحميل الفورم
حياك الله اخي امير
اخي الكريم يرجى اضافة الاكواد الاتية الى مشروعك وتغيير كود الفوم لود او تحميل الفورم
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
بالتوفيق
02-11-16, 09:43 AM
الف الف شكر لاستاذي الكريم احمد عبدالعليم وجزاك الله الف خير/ هذا هو المطلوب .