منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

السلام عليكم

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

كود :

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, "#.##")

- تحياتي .

الله يباركلك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

laksas

VB_Coder

xXxMeDhAtxXx