合计计算

可以写一个自定义函数，大体如下：

Public Function MYDSum(tbname As String, Nfirst As Long, Nlast As Long, WH As String) As Single
'功能：字段间合计
'参数：tbname--表或查询名称
'      Nfirst--开始计算的字段号（从0开始）
'      Nlast---截止计算的字段号
'      WH---计算的条件
'示例:select 工资ID,人员ID,月度,基本工资,绩效工资,奖金,MYDSum("工资表",3,5,"工资ID=" & [工资ID]) as 应发工资 from 工资表
Dim rs As New ADODB.Recordset
Dim ssql As String
Dim i As Long
rs.Open tbname, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.Find WH
MYDSum = 0
For i = Nfirst To rs.Fields.Count - 1
    MYDSum = MYDSum + rs.Fields(i).Value
Next
rs.Close
End Function