如何累计上一条记录的字段

此题的要求是：为一张查询计算累计余额。（原文：“上一条记录的结余数+本条记录的入库-本条记录的出库”）

答：不可能为查询计算累计结余数。

但可以为表对象计算累计余额,要用到VBA代码。

你可以将该查询转换成一张临时表，就可以为结余列计算累计结余数了。

Private Sub 计算库存_Click()
 Dim varBalance As Double, strLedger As String
 Dim rs1 As Recordset
 Set rs1 = New ADODB.Recordset
 rs1.ActiveConnection = CurrentProject.Connection
   strLedger = "进销存表"
       
   rs1.Open strLedger, , adOpenKeyset, adLockOptimistic, adCmdTable
   varBalance = 0
   Do Until rs1.EOF
        rs1("库存") = Nz(rs1!入库) - Nz(rs1!出库) + Nz(varBalance)
        rs1.Update
        varBalance = rs1!库存
        rs1.MoveNext
    Loop
   rs1.Close
   Set rs1 = Nothing

Me.Refresh
End Sub

点击下载此附件