منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
عرض عدد الحقول المملوؤه في عمود MSHFLEXGRID داخل مربع نص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : عرض عدد الحقول المملوؤه في عمود MSHFLEXGRID داخل مربع نص (/showthread.php?tid=27506)



عرض عدد الحقول المملوؤه في عمود MSHFLEXGRID داخل مربع نص - دهشوش1 - 18-11-18

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

اتمنى حد يساعدني بوضع الكود الصحيح

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

اعمل على فيجوال بيسك 6 واستخدم الربط ب ADO

ولكم جزيل شكري


RE: عرض عدد الحقول المملوؤه في عمود MSHFLEXGRID داخل مربع نص - عبدالله الصافي - 25-01-19

كود :
For i = 1 To MSFlexGrid1.Rows - 1
   If MSFlexGrid1.TextMatrix(i, 2) <> "" Then
       Text3 = Val(Text3) + 1
   End If

Next
يتم تكرار جملة If لكل عمود