VB如何实现数据的累加
来源:百度知道 编辑:UC知道 时间:2024/05/25 11:53:02
我在rs.fields(1)字段中储存了数据 怎么编写代码求它们的和呢
sql语句直接求和要快的多
strSql="select sum([money]) from mytab"
On Error Resume Next
Dim dblSum As Double
dblSum = 0
Do While Not rs.EOF
dblSum = dblSum + CDbl(rs.fields(1))
rs.MoveNext
Loop
dblSum就是要求的和