累计余额查询

缪炜  老师的http://www.accessoft.com/article-show.asp?id=9517《如何在查询中实现累计余额》非常实用，请教各位老师，要在这个基础上增加分组，又怎样修改？

'函数用途： 求累计结余金额

'输入参数： ID      对应查询中当前行ID字段的值

'           Balance 对应查询中的当前行结余金额的值

'使用注意： 必须以ID字段排升序，否则会出错

Public Function GetBalance(ID As Long, Balance As Currency) As Currency

    Static lngPreID As Long             '前次ID

    Static curPreBalance As Currency    '前次余额

   

    If ID > lngPreID Then

        curPreBalance = curPreBalance + Balance

    Else

        curPreBalance = Balance

    End If

    lngPreID = ID

    GetBalance = curPreBalance

End Function

这是缪炜老师的原码。想在原码的基础上增加按往来代码或其他文本型字段分组：

Public Function GetBalance(ByVal jsmc As String, ID As Currency, Balance As Currency) As Currency
    Static lngPreID As Currency             '前次ID
    Static curPreBalance As Currency    '前次余额
    Static wldm As String    '往来代码，以此分组，没有成功


    If ID > lngPreID Then
        curPreBalance = curPreBalance + Balance
    Else
        curPreBalance = Balance
    End If


    lngPreID = ID
    GetBalance = curPreBalance


End Function

谢谢！