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

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



جمع قيم صف فليكس جريد vb6 - tighrmte - 14-02-23

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


RE: جمع قيم صف فليكس جريد vb6 - Taha Okla - 14-02-23

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

قم بإرفاق مثال - ليتم التطبيق عليه.


RE: جمع قيم صف فليكس جريد vb6 - tighrmte - 14-02-23

(14-02-23, 07:07 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

قم بإرفاق مثال - ليتم التطبيق عليه.

حسنا في الحين


RE: جمع قيم صف فليكس جريد vb6 - Taha Okla - 14-02-23

كود :
Dim xCount  'As Integer 'As Long 'As Double

xCount = 0

For i = 3 To MSFlexGrid1.Cols - 1
    xCount = Val(xCount) + Val(MSFlexGrid1.TextMatrix(1, i))
Next i

Text2.Text = xCount



RE: جمع قيم صف فليكس جريد vb6 - tighrmte - 14-02-23

(14-02-23, 09:11 PM)Taha Okla كتب :
كود :
Dim xCount  'As Integer 'As Long 'As Double

xCount = 0

For i = 3 To MSFlexGrid1.Cols - 1
    xCount = Val(xCount) + Val(MSFlexGrid1.TextMatrix(1, i))
Next i

Text2.Text = xCount

مشكور اخي الكريم