16-06-13, 08:51 PM
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