السلام عليكم ورحمة الله
نأمل منكم مساعدتي في حساب الحقلين في form2
1- قيمة المبلغ بالسوري ( lable3)
2- قيمة_المبلغ بالدولار ( lable4)
والله تعبت
جزاكم الله خير
السّلام عليكم و رحمة الله و بركاته
أخي الكريم " عبد القادر عواد ".. محاولة من مبتديء لعلّها تفيد و لو بالقليل إن شاء الله ..ريثما يتدخّل أحد أساتذتنا الأفاضل بارك الله فيهم و لهم مقدّمًا
إحتراماتي
كود :
Sub Sum_Total()
Dim n As Integer, m As Integer
For n = 1 To MSHFlexGrid1.Rows - 1
summark1 = Val(MSHFlexGrid1.TextMatrix(n, 3)) + summark1
Next n
Label3.Caption = summark1
Label3.Caption = Format(Label3.Caption, "# #00.00 ")
For m = 1 To MSHFlexGrid1.Rows - 1
summark2 = Val(MSHFlexGrid1.TextMatrix(m, 5)) + summark2
Next m
Label4.Caption = summark2
Label4.Caption = Format(Label4.Caption, "# #00.00 ")
End Sub
جزاك الله خيرا اخي عبد العزيز البسكري على المتابعة جعله الله في ميزان حسناتك
اسأل الله العظيم رب العرش العظيم ان يفرج همك