تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في تحزيم المشروع VB6 عبد الرحمان البسكري 14 468 15-04-17, 11:01 AM
آخر رد: عبد العزيز البسكري
  [vb6.0] طلب مساعدة - أريد كود البحث السريع وعمل ملف تثبيت لبرنامجي المرفق Soufyane 1 184 10-04-17, 01:45 PM
آخر رد: Amir_alzubidy
  مساعدة بخصوص Listview haniblack 2 232 28-03-17, 06:21 PM
آخر رد: Amir_alzubidy
  مساعدة فى تقسيم الشهر إلى 3 أقسام hsab 7 483 06-02-17, 10:39 PM
آخر رد: اسلام الكبابى
  مساعدة في كود جلب الصورة وحفظها في قاعدة البيانات مصمم هاوي 3 576 04-09-16, 09:36 AM
آخر رد: مصمم هاوي
  [vb6.0] اخوتي الاعزاء في المنتدى مساعدة عاجلة sher 0 308 30-08-16, 09:37 AM
آخر رد: sher
  picture box مساعدة بخصوص اداة ابو مهدي 2 460 21-08-16, 01:40 PM
آخر رد: ابو مهدي
  [vb6.0] مساعدة من اهل الخبرة sher 2 424 21-07-16, 12:24 PM
آخر رد: Amir_alzubidy
  [vb6.0] مساعدة لتخطي هذه المشكلة sher 1 332 18-07-16, 03:10 PM
آخر رد: Amir_alzubidy
  مساعدة في تصميم برنامج صغير (طرة وكتبة) starwarr2005 2 491 22-05-16, 01:42 PM
آخر رد: starwarr2005

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


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