主讲人：张志MVP
2003-2013连续10年荣获微软最有价值专家(MVP)
主讲人：张志MVP
主讲人介绍：2003-2013连续10年荣获微软最有价值专家(MVP)
▲ GetBalance 自定义函数
'函数用途： 求累计结余金额
'输入参数： 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
