下面是一个滚动累加的例子
如果基本表的字段是 单位,品号,日期,入库,出库,备注。另一个基本表是 单位,品号,期初余额。
一个查询是 单位,品号,日期,入库,出库,结存,备注。结存=起初余额+入库-出库(结存的计算是分单位和品号的)
如何实现7号结存=6号余额+7号入库-7号出库, 8号结存=7号余额+8号入库-8号出库, 结存是累加的,自动更新的。
累加可参看上面的例子,或者看这段代码:
Public Sub 自动计算余额()
Dim Cnndb As new ADODB.Connection
Dim Rstobj As new ADODB.Recordset
Dim VarBalance As Double '上笔记录之余额
Set Cnndb = CurrentProject.Connection
VarBalance=0 '先给上笔记录结存赋值
Rstobj.Open "帐户明细",Cnndb
Do Until Rstobj.EOF
Rstobj!结存= Rstobj!转入+Rstobj!汇入款+ Rstobj!上月支票+ Rstobj!本月支票- Rstobj!支出-Rstobj!转出+VarBalance
Rstobj.Update
VarBalance = Rstobj!结存
Rstobj.MoveNext
Loop
Rstobj.Close
Set Rstobj = Nothing
End Sub
我不知道如何实现分单位和品号的滚动累加。请各位高手赐教!!!
[此贴子已经被作者于2004-8-11 8:47:50编辑过]
|