这里求列值和的方法我觉得最起码有三种:
1、按照DataGrid列求和
dim Sum as Double
dim I as Integer
dim n as Long
'取得窗体中连接DataGrid 的数据源的记录个数
n=Adodc1.RecordSet.RecordCount
'如求第7列的和
Sum=0
For i=1 to n
Sum=Sum+Val(DataGrid.Coclumns(6).Text)
Next i
'统计结果
Text1.Text=Format(Sum,"#0.00")
2、利用Adorc1数据源建立数据镜像
Dim sn As New ADODB.Recordset
dim Sum as Double
Set sn=Adodc1.Recordset.Clone()
Sum=0
Do While Not sn.Eof
Sum=Sum+sn(“字段名") '求和的字段名称
sn.MoveNext
Loop
'统计结果
Text1.Text=Format(Sum,"#0.00")
3、将查询条件关联到SQL语句中,直接在数据库中求和
Din sn As New ADODB.Recordset
dim mySQL as String
....
conn 为连接的数据源
mySQL="SELECT Sum(字段名) From 表名 Where ("+ 筛选条件+")"
SET sn.Open mySQL,conn,adOpenDynamic, adLockReadOnly
'sn(0) 中就是求和的结果
Text1.Text=Format(sn(0),"#0.00")
温馨提示:答案为网友推荐,仅供参考