Office中国论坛/Access中国论坛

标题: ＃（SOS）如何在余额代码中区分帐户（请点击下方“在新窗口中查看”按钮，才能看到 [打印本页]

作者: sf 时间: 2004-9-12 00:52
标题: ＃（SOS）如何在余额代码中区分帐户（请点击下方“在新窗口中查看”按钮，才能看到
请点击下方“在新窗口中查看”按钮，才能看到正确内容。谢谢

如下表及计算余额的代码，我想余额一栏能区分单位帐户，按帐户来初始余额为零。然后进行针对另一帐户的余额计算，例如小李的余额不与小王的余额发生任何关系，各自核算，我现在的计算余额的代码是会累计的，请问如何在代码中修改以便可以按帐户各自核算各自的余额。

请各高手指点！！！谢谢！！！

帐目ID

单位帐户

帐簿名称

日期

收入

支出

内容摘要

备注

余额

1

小李

应付帐款

2004-5-13

100

预付工程款

－100

2

小李

应付帐款

2004-4-13

200

设备款

－300

3

小李

应付帐款

2004-7-16

100

行车款

－200

4

小李

应付帐款

<FONT face=

作者: AlexLiu 时间: 2004-9-12 17:34
首先，你要保证"资金流量表临时"是按照姓名排列的。Public Sub 存款余额补填()

Dim db As ADODB.Connection, varBalance As Double

Dim rs As ADODB.Recordset

Dim strName as string

Set db = New ADODB.Connection

Set rs = New ADODB.Recordset

rs.ActiveConnection = CurrentProject.Connection

On Error GoTo 错误式

rs.Open "资金流量表临时", , adOpenKeyset, adLockOptimistic, adCmdTable

varBalance = 0

strName = rs!单位帐户

Do Until rs.EOF

rs.CancelUpdate

if strName = rs!单位帐户 then

   rs("余额") = Nz(rs!收入, 0) - Nz(rs!支出, 0) + varBalance

else

   rs("余额") = Nz(rs!收入, 0) - Nz(rs!支出, 0)

   strName = rs!单位帐户

end if

varBalance = rs!余额

rs.Update

rs.MoveNext

Loop

rs.Close

Exit Sub

错误式:

If Err.Number <> 0 Then

      MsgBox "错误讯息：" & Err.Description & "错误代码" & Err.Number

Else

      MsgBox "没有错误发生,Err代码是：" & Err.Number

End If

Exit Sub

End Sub

未经测试，可能会有点问题。

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