急！求教一个计算字段的问题

panther_2002

我正在做一个小型公司的银行对账系统，现在遇到一个问题，如下：（望高手给于指点）
        借方金额   贷方金额   总额   
          0          0        80（初始数据）
         50          0        30
          0          70      -40
         20          0        20

总额的计算公式是 [本行的总额]=[上一行的总额]-[本行的借方金额]+[本行的贷方金额]

初始的总额数据除了初始数据80，其余都为0，我的问题是怎样根据初始数据80计算出下面的总额数据（即30， -40， 20）。

我所看到的都是本行的算术运算，用到上一行记录的数值是应怎样处理？谢谢！

aban

假设：你的帐务数据是存放在数据库的Table1中，该表中共有3个字段分别为：
jf    借方金额
df    贷方金额
ze    总额

可以用一下程序进行计算：

Private Sub 命令0_Click()
Dim MyRS As Recordset, LastSum As Long
Set MyRS = CurrentDb.OpenRecordset("table1")
If Not MyRS.EOF Then
    LastSum = MyRS("ze")
    MyRS.MoveNext
End If
Do Until MyRS.EOF
    LastSum = LastSum - MyRS("jf") + MyRS("df")
    MyRS.EditMode
    MyRS("ze") = LastSum
    MyRS.Update
    MyRS.MoveNext
Loop
End Sub

[em07]

panther_2002

谢谢，很感谢aban提供的帮助，谢谢

aban

不客气！！