lwwvb版主的余额计算例程

tmtony

lwwvb版主的余额计算例程，非常不错，值得下载
文件下载

ljp518

谢谢分享

tonywang

厉害，

wf_xcb

商榷！




这应作效率特差?====>>




    ====>>原因：每次打开查询，都要基于表中的纪录的顺序逐条重新计算余额。假若基表中的纪录达到万条乃至几十条，你试试要等待多长时间？




   =====>>解决方案：用静态数据，换取显示速度，也就是要[将即时余额填入表的余额字段（最好不用Dsum函数）]。




[em01]

cdwlove

看帖不忘顶!!!!

nxjswt

谢谢!!!!!!!!!!!

marco2

f 是一个自定义函数，原型如下，作用是为了计算当前日期的余额，其实这个实例也可以直接在窗体的Text控件里用DSUM函数实现的：
Public Function f(d As Date) As Currency
  Dim a As Currency
  Dim b As Currency
  a = Nz(DSum("[银行存款]![存入]", "[银行存款]", "[日期] <=  # " & d & "#"))
  b = Nz(DSum("[银行存款]![提款]", "[银行存款]", "[日期] <=  # " & d & "#"))
  f = a - b
End Function

哈瘌子

以下是引用tmtony在2002-5-5 17:49:34的发言：
lwwvb版主的余额计算例程，非常不错，值得下载
文件下载

能解释一下　f   的作用吗？

cg1

http://temp.shtip.com.cn/web/index.asp?board=4&mode=3&recordid=254

也许你还有启发

gxason

我正在下载不知道好不好用??