+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : استفسار اكيد جدا (/showthread.php?tid=9288)
استفسار اكيد جدا - boussida fethi - 16-06-13
اريد من الاعضاء الكرام مثال بسيط حول كيفيّة اجراء جمع حقل في داتا قريد مرتبطة بقاعدة بيانات اكسيس في بيئة vb6
استفسار اكيد جدا - wolf1120 - 16-06-13
boussida fethi كتب :اريد من الاعضاء الكرام مثال بسيط حول كيفيّة اجراء جمع حقل في داتا قريد مرتبطة بقاعدة بيانات اكسيس في بيئة vb6
كود :
Dim i As Integer
Dim Wolf As Double
db.Col = 1 'رقم العمود المراد جمعه في الداتا بيز
For i = 0 To DataGrid1.ApproxCount - 1
wolf= wolf+ DataGrid1.Columns(1).CellValue(DataGrid1.GetBookmark(i))
Next
Label1.Caption = wolf