<<< 返回 access911.net 编程静态资料库索引页

动态余额问题--之1?看这里了 dsum解决方案

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2002-12-29  浏览人次:5912


专题地址:http://access911.net/fixhtm/73FAB31E11DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


问题:

动态余额问题--之1?看这里了 dsum解决方案
如何用查询动态的求余额?

 


回答:

在模块里建立下面这个函数:
Public Function Balance(d As Double, DomainName As String) As Currency
    Dim a As Currency
    Dim b As Currency
    a = Nz(DSum(DomainName & "![收入金额]", DomainName, "[余额条件] <= " & d))
    b = Nz(DSum(DomainName & "![支出金额]", DomainName, "[余额条件] <= " & d))
    Balance = a - b
    If IsNull(Balance = True) Then Balance = 0

End Function


当然,不写模块直接将 DSum 等域函数嵌入到查询中也可以

在写查询的时候这样写
dim strsql as string
strsql="select 收入,支出,排列id,balance([排列id],'[C1]') as 余额 from c1 order by 排列id"
docm.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/73FAB31E11DC.htm

 


上一篇:如何将 <select><option>的样式改为平面的?

下一篇:在Jet SQL查询中,如何区分大小写?

2017年2月22日生成静态资料