求datagrid中字段求和,望各高手赐教。谢谢！！！！！

[jiadong]

我做了一个小程序用到adodc and datagrid可以显示记录,我想把datagrid中的某一字段列求和。比如字段“收入”这一列做求和。想求出总收入。然后通过命令按钮输入到一文本框中。
望各高手赐教。谢谢！！！！！

[sword281]

将你的绑定代码写一下
如果是绑定的某张表
select * from 表名
dim cn as new adodb.conncetion
dim rs as new adodb.recordset
sql="select count(列名) from 表名"
set rs=cn.execute(sql)
text1.text=rs.field(0).value

如果不绑定的表
且datagrid绑定于adodc
dim result as long
dim rs as new adodb.recordset
set rs=adodc.recordset
resutl=0
rs.movefirst
set recor
do until rs.eof
result=rs.field("要求和的列名").value+result
rs.movenext
loop
text1.text=str(result)

[jpinglee]

sql="select sum(收入) as 总收入 from 表名"
adodc1.recordsource=sql
adodc1.refresh
text1.text=adodc1.recordset.fields(总收入).value