＃如何查询余额？＃

eio

如：
1-1    进1000元    余1000元
1-2    支800元     余200元
1-3    进3500元    余3700元
需要用查询完成这个余？

yqxxjymc

Roadbeg 的方法在浏览几万条记录时效果很明显

王维a780

sdghjg

binzhouxc721521

access在财务中的应用，这本书里就有这样的例子，可以去找一下。

dhqian-qp

thks!

盗到稻

可参考一下
Public Sub 分类帐补余额_贷方余额()
    '本宏为贷方余额者,若生成贷方余额,则以负号表示.
Dim varBalance As Double, strLedger As String
Dim rs1 As Recordset
Set rs1 = New ADODB.Recordset
    '指定rs1的联接数据库为目前打开的数据库
rs1.ActiveConnection = CurrentProject.Connection
    On Error GoTo 错误式
    strLedger = InputBox("请输入你要补余额的分类帐表的名称", "基础理论")
        '使用open方法打开刚生成的表 [？ ？分类帐]
    rs1.Open strLedger, , adOpenKeyset, adLockOptimistic, adCmdTable
        '先设余额等于零
    varBalance = 0
        '使用Do Loop循环在表记录集合中逐笔往下计算本日余额
    Do Until rs1.EOF
        'rs1.Cancelupdate
        rs1("余额") = rs1!贷方金额 - rs1!借方金额 + varBalance
        rs1.Update
        varBalance = rs1!余额
        rs1.MoveNext
    Loop
    MsgBox "余额字段已替你补好了,你不必自己计算"
    DoCmd.SelectObject acTable, strLedger, True
    DoCmd.OpenTable strLedger, acViewNormal, acEdit
    DoCmd.GoToControl "余额"

[此贴子已经被作者于2003-10-9 16:11:12编辑过]

小溪

如果日期字段中记录不唯一，可能计算会出错。

ADAM

其實用個函數也可實現的.如下:
(以下函數是從本站上學習的)
Public Function F(S As String, D As DATE)
Dim A As Double
Dim B As Double
On Error GoTo ERR_F
A = Nz(DSum("[進]", "DATA2", "[日期]<=#" & D & "#"))
B = Nz(DSum("([支]", "DATA2", "[日期]<=#" & D & "#"))

F = A - B

EXIT_F:
Exit Function

ERR_F:
F = 0
End Function

小溪

[quote]以下是引用whowho在2003-5-8 8:57:25的发言：
最简单的方法：
数据表包括以下字段：日期、进、支、余额，每次增加纪录时，输入日期、进或支后，进行更新查询来更新余额，即余额＝余额＋进（或－支）。每次打开时，数据表已经有余额了，不需要再经过计算，快！注意：纪录输入后不能回头更改！旧纪录如果入错了，需要另入一条更正纪录来更正，这样也符合财务要求，是吗？


不怕你见笑，我是天下第一菜鸟，能否告诉我如何做输入记录后马上更新余额的更新查询？
[em07]

[此贴子已经被作者于2003-10-8 15:52:57编辑过]

Trynew

Roadbeg 的这个方法在浏览一万几千条记录时效果就很明显了。
只是60万条记录求余额的情况我还想象不出会在那里发生，（如果是我的存折记录就发达了：），我应用中最多就几百条。