Office中国论坛/Access中国论坛

标题: 高手注意了，一个不错的问题 [打印本页]

作者: malihui_006 时间: 2004-8-10 01:23
标题: 高手注意了，一个不错的问题
下面是一个滚动累加的例子 [attach]5983[/attach]

如果基本表的字段是单位，品号，日期，入库，出库，备注。另一个基本表是单位，品号，期初余额。

一个查询是单位，品号，日期，入库，出库，结存，备注。结存=起初余额+入库-出库（结存的计算是分单位和品号的）

如何实现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编辑过]

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