منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعدة في جمع عمود mshfilxgrid - نسخة قابلة للطباعة

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

مساعدة في جمع عمود mshfilxgrid - laksas - 28-02-14

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


For N = 1 To (Val(mshflexgrid.Rows) - 1
summark = Val(mshflexgrid.TextMatrix(N, 1)) + summark
Next N
Label1.Caption = summark

اخواني عند العمل بهذا الكود الناتج يكون خاطي اذا تضمنت خلايا الفيلكس قريد ارقاما عشرية

حيث يكون مجموع الارقام التالية مثلا

24.2
24.6

الناتج 48 مع انه يجب ان يكون الناتج 48.8

ارجوا المساعدة من الاخوة الافاضل

RE: مساعدة في جمع عمود mshfilxgrid - VB_Coder - 28-02-14

السلام عليكم

- عدل كودك ليصبح هكذا :

كود :
Dim A As Double
For N = 1 To (Val(mshflexgrid.Rows) - 1
A= A + Val(Trim$(mshflexgrid.TextMatrix(N, 1)))
Next N
Label1.Caption = A
'OR
Label1.Caption = Format$(A, "#.##")

- تحياتي .

RE: مساعدة في جمع عمود mshfilxgrid - xXxMeDhAtxXx - 28-06-15

الله يباركلك