Question

VB DataGrid1控件求和问题

如何计算出进货价格该列的总和代码求完整简单。
求和结果显示到text1.text中

Answer 1

If Not Adodc1.Recordset.EOF Then '//抛出异常
For i = 1 To Adodc1.Recordset.RecordCount Step 1 '//按记录集合循环
sum=sum+ Adodc1.Recordset.Fields("name") 'name 换成你的数据库 价格字段
Adodc1.Recordset.MoveNext '//游标下移
Next i
End If