UC知道VB 统计功能
来源：百度知道 编辑：UC知道 时间：2024/05/30 03:53:54
请问各位，如何用VB统计DataGrid中的某一列中值呢？请写出源码，谢谢！
如：
价格 数量
8 2
9 1
7 3
Label1.Caption=价格总计(也就是24)
Label2.Caption=数量总计(也就是6)
谢谢各位了
***************************************************************
高手请帮助！
Set Gs = New ADODB.Recordset
Gs.CursorType = adOpenStatic
Gs.CursorLocation = adUseClient
Gs.LockType = adLockPessimistic
Gs.Open "select Sum([费用]) as Zgzj ghdata where 日期 >= '" & DTPicker1.Value & "' and 日期 <= '" & DTPicker2.Value & "'and 操作员='" & GHDL.dm.Text & "'and 退费 <> '√'", Con
Label1.Caption = DataGrid1.Columns(0).Value
错误语句为：Gs.Open那一句
错误图片：
zhan1616-xinwen365-com/111-jpg
请把网址中的“-”换成“.”
如：
价格 数量
8 2
9 1
7 3
Label1.Caption=价格总计(也就是24)
Label2.Caption=数量总计(也就是6)
谢谢各位了
***************************************************************
高手请帮助！
Set Gs = New ADODB.Recordset
Gs.CursorType = adOpenStatic
Gs.CursorLocation = adUseClient
Gs.LockType = adLockPessimistic
Gs.Open "select Sum([费用]) as Zgzj ghdata where 日期 >= '" & DTPicker1.Value & "' and 日期 <= '" & DTPicker2.Value & "'and 操作员='" & GHDL.dm.Text & "'and 退费 <> '√'", Con
Label1.Caption = DataGrid1.Columns(0).Value
错误语句为：Gs.Open那一句
错误图片：
zhan1616-xinwen365-com/111-jpg
请把网址中的“-”换成“.”
sql = "select sum([价格]) as 价格总计, sum([数量]) as 数量总计 from tabel"
用ADODC控件连接数据库,将DATAGRID控件的属性DataSource设置为ADODC控件,将sql赋值给ADODC的属性RecordSource,然后:
Label1.Caption = "价格总计:" & Adodc1.Recordset (0)
Label2.Caption = "数量总计:" & Adodc1.Recordset (1)
数据库连接参考:http://iask.sina.com.cn/browse/browse_detail.php?qid=1758202
补充：
你的Gs.Open那一句代码应修改如下：
Gs.Open "select Sum([费用]) as Zgzj ghdata where 日期 Between '" & DTPicker1.Value & "' and '" & DTPicker2.Value & "'and 操作员='" & GHDL.dm.Text & "'and 退费 <> '√'",Con
如果你的 DTPicker1.Value和DTPicker2.Value是DATE数据类型，则查询日期字段的两头单引号应改为#号。