查询中字段求和

wuykai　发表于：2008-04-15 21:38:22 　

这是我做的公用函数，目的是对记录集中某字段具有相同值，则对另一字段求和

Public Function dsumfieldv(rs As String, sfield As field, casefield As field, ordfield As field) As Currency
Dim rsv As New ADODB.Recordset
Dim conn As ADODB.Connection
Dim varval As Variant
Dim strsql As String
strsql = "select " & sfield & " from " & rs & "group by " & casefield & "order by " & ordfield & " desc"
Set conn = CurrentProject.AccessConnection
rsv.Open strsql, conn, adOpenDynamic, adLockOptimistic
varval = rsv("casefield")
dsumfieldv = DSum("[sfield]", "rsv")
End Function

这是在查询中的应用：

字段sumpag: dsumfieldv("实付记录";[实付记录]![sumpagbat];[实付记录]![rcvid];[实付记录]![no])

结果：#错误

不知道为什么？

如何解决？

Top

咱家是猫发表于：2008-04-15 22:20:33

这是什么代码啊?有点不伦不类的.一会ADODB.Recordset,一会DSum

我实在看不明白你要做什么.

按你这么做法,直接dsumfieldv = DSum("[sfield]", "rs")效果不是一样嘛.

Top

sosopain 发表于：2008-04-15 23:46:04