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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [vb6.0] مساعدة في كود (/showthread.php?tid=11447)

مساعدة في كود - محمد الشمري - 16-02-15

السلام عليكم
قمت بعمل برنامج يخزن قيم للموردين في جدول مثال
خالد 5
خالد 9
خالد 10
في تواريخ مختلفة اريد كود يقوم بجمع القيم من داخل الجدول بحيث يكون فقط سجل واحد
خالد 24

*****************

قمت بتجربة هذا الكود ويعطيني دائما القيمة صفر

كود :
Text11 = 0
temp22.MoveFirst
Do Until temp22.EOF
For x = 1 To RecordCount
y = y + temp22.Fields("mostf")
x = x + 1
Next x
temp22.MoveNext
Loop
Text11 = y

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

RE: مساعدة في كود - محمد العبيدي - 16-02-15

اخي العزيز هذا تصحيح لكودك في حالة كون اسم العمود الذي حددته حضرتك صحيح
كود :
temp22.MoveFirst
Text11="0"
While Not temp22.EOF
    Text11=Val(Text11) + Val(temp22.Fields("mostf"))
    temp22.MoveNext
wend
نرجو في المره القادمة ان ترفق مشروعك للتعديل علية