＃（SOS）如何在余额代码中区分帐户（请点击下方“在新窗口中查看”按钮，才能看到

sf

请点击下方“在新窗口中查看”按钮，才能看到正确内容。谢谢


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


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

















帐目ID


单位帐户


帐簿名称


日期


收入


支出


内容摘要


备注


余额








1





小李


应付帐款


2004-5-13





100


预付工程款





－100





2


小李


应付帐款


2004-4-13





200


设备款





－300





3


小李


应付帐款


2004-7-16





100





行车款





－200





4


小李


应付帐款


<FONT face=

AlexLiu

首先，你要保证"资金流量表临时"是按照姓名排列的。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

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