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取得。