Question

vb中 对筛选后的 DataGrid表 里面的 指定列 求和？？？

对筛选后的 DataGrid表 指定列求和 统计第38列表名称 ProdMete的 累加和？？高手指点代码

Answer 1

这里求列值和的方法我觉得最起码有三种:
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")