[ahmedabdelaliem]

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

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

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

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

بالتوفيق