Question

如何用循环取得vb的DataGrid中一列的值

Answer 1

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

Next Count
End Sub

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