Office中国论坛/Access中国论坛

标题: 急！求教一个计算字段的问题 [打印本页]

作者: panther_2002 时间: 2002-10-23 05:29
标题: 急！求教一个计算字段的问题
我正在做一个小型公司的银行对账系统，现在遇到一个问题，如下：（望高手给于指点）
      借方金额贷方金额总额
      0       0       80（初始数据）
      50       0       30
      0       70    -40
      20       0       20

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

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

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

作者: aban 时间: 2002-10-23 05:52
假设：你的帐务数据是存放在数据库的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 时间: 2002-10-23 05:57
谢谢，很感谢aban提供的帮助，谢谢

作者: aban 时间: 2002-10-23 05:59
不客气！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)