Question

vb中 如何datagrid 一列值求和

Adodc2.RecordSource = "SELECT * FROM 商品消费明细表 where 客户姓名 ='" + Text1.Text + "'"
Adodc2.Refresh
Dim count As Integer
Dim Lcount As Integer
Lcount = 0
For count = 0 To Adodc2.Recordset.RecordCount - 1
Lcount = Lcount + Val(DataGrid2.column("商品消费总数").Text)

Next count

Text2.Text = Lcount

为什么 总是 第一条记录 相加

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

追问

还是不行 好奇怪呀

追答

DataGrid2.Row = DataGrid2.Row+1

追问

还是不行 怎么回事呢请帮帮忙 急急急

追答

加入
vb6专家百度HI群1358368
vb6专家 qq群184734495
找我

追问

谢谢

Answer 2

用select sum(商品消费总数) FROM 商品消费明细表 where 客户姓名 ='" + Text1.Text + "'"
语句更好

追问

text2.text=select sum(商品消费总数) FROM 商品消费明细表 where 客户姓名 ='" + Text1.Text + "'"
吗

为什么 报错 语法错误

追答

你以前程序的错误如下：你的行没有移动，你的表达式(DataGrid2.column("商品消费总数").只有列，没有行随for语句改变。
关于用select sum()语句报错问题你去查一下sql server说明吧。sum()括号里应该是你要累加的数据表中的字段名。

Answer 3

游标没有动
要movenext的方法