Question

vb如何获取DataGrid的一列数据

Answer 1

Private Sub Command1_Click()
For Count = 0 To Adodc2.Recordset.RecordCount - 1
a=Val(DataGrid2.Column("商品消费总数").Text)
msgbox a
DataGrid2.Row = DataGrid2.Row+1
Next Count
End Sub

其实datagrid的一列值就是adodc.recordset的一列值，
可以用sql语句select sum("列名") from table取得。

Answer 2

vb获取DataGrid的一列数据，需要逐行搜索：dim aLine as dataline

for each aLine in dategrid1.itemline
a=aline.item(0)
next