告急!!!!

灿烂阳光　发表于：2008-01-11 14:52:04 　

如何才能让表中的余额在表记录中循环逐笔往下计算本日余额.

比如:

日期搞要借方金额贷方金额余额

08-01-01 期初余额 30

08-01-02 ....... 30 60(余额=期初余额+借方-贷方)

08-01-03 ......... 50 20 90(余额=前一天余额+借方-贷方)

一直如此循环下去.

呵呵发表于：2008-01-11 16:16:05

表结构不是太清楚，根据表在做个查询，然后再存储在另一表中就行了

马丽发表于：2008-01-11 21:38:36

你换个思路吧：余额＝期初余额＋借方金额总计－贷方余额总计

灿烂阳光发表于：2008-01-12 14:07:15

有谁能教我做吗?

樟树发表于：2008-01-13 20:07:22

Dim rs as ADODB.Recordset

Set rs = New ADODB.Recordset
rs.ActiveConnection = CurrentProject.Connection
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Open "表名"

Do Until rs.EOF

樟树发表于：2008-01-13 20:07:23

Dim rs as ADODB.Recordset

Set rs = New ADODB.Recordset
rs.ActiveConnection = CurrentProject.Connection
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Open "表名"

Do Until rs.EOF

樟树发表于：2008-01-13 20:13:51

没完怎么提交了?还两次.

在Do Until前在加两句:

前一天余额=rs!余额

rs.movenext

以下加在do Until的后面:

rs!余额=前一天余额+rs!借方金额-rs!贷方金额

rs.update

rs.movenext

loop

总记录：6篇页次：1/1 9 1 :

Access交流中心