如何做一个流水记帐?

ldx6

小弟初学,就想做个简单的收支余额的帐.可以按月统计各类信息的.

我想在查询中显示的每一笔都有余额,自动按借贷方加减,而不是一个总的余额.

请各位高手帮忙指点一下,谢谢了.

有源码更好,呵呵

一点通

请看下这个例子

http://www.office-cn.net/forum.php?mod=viewthread&tid=761&replyID=&skin=1

tz-chf

在报表中可以加个汇总字段的文本框，能自动累计。

ldx6

这个例子自定义了一个函数吧,我不太明白,

内置的函数做不出来吗

fan0217

以下是引用一点通在2006-5-23 8:47:00的发言：


请看下这个例子

http://www.office-cn.net/forum.php?mod=viewthread&tid=761&replyID=&skin=1

这是个典型的流水帐，只要能实现，还要拘泥于形式吗？

tz-chf

在报表中把金额字段"运行总额"属性改一下

fan0217

这里也有个计算余额的函数，使用时直接套用就可以了。


'示例   Call 计算余额("财务明细帐", "收入", "支出", "余额")
Public Function 计算余额(str表 As String, str借方 As String, str贷方 As String, str余额 As String) As Boolean
On Error GoTo Err_计算余额
Dim con As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim varBalance As Double

   Set con = CurrentProject.Connection

   Rs.Open str表, con, adOpenKeyset, adLockOptimistic, adCmdTable
   
   varBalance = 0
   Do Until Rs.EOF
        Rs.CancelUpdate
        Rs(str余额) = Nz(Rs(str借方), 0) - Nz(Rs(str贷方), 0) + varBalance
        Rs.Update
        varBalance = Rs(str余额)
        Rs.MoveNext
    Loop
   
    计算余额 = True
    Rs.Close
    Set Rs = Nothing
    Set con = Nothing

Exit_计算余额:
    Exit Function

Err_计算余额:
    计算余额 = False
    Set Rs = Nothing
    Set con = Nothing
    MsgBox Err.Description
    Resume Exit_计算余额
   
End Function

pohoo

要分10分的呀，不能看呀！！

xcshine

函数怎么套用，盼高手详解一下