تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في جمع عمود mshfilxgrid
#1
السلام و عليكم و رحمة الله


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

ارجوا المساعدة من الاخوة الافاضل
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

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

كود :
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, "#.##")

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
تم الشكر بواسطة: xXxMeDhAtxXx , Amir_Alzubidy
#3
الله يباركلك
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Amir_Alzubidy



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم