Office中国论坛/Access中国论坛

标题: lwwvb版主的余额计算例程 [打印本页]

作者: tmtony 时间: 2002-5-6 01:50
标题: lwwvb版主的余额计算例程
lwwvb版主的余额计算例程，非常不错，值得下载
文件下载

作者: huanghai 时间: 2002-5-6 02:11
我已经下载了，真的不错。

作者: ui 时间: 2002-5-8 08:41
真极品，ACCESS真是什么都能做，版主的东东让我对ACCESS有信心

作者: yuanhai 时间: 2002-5-29 00:07
好东西啊

作者: 海棠花 时间: 2003-2-5 12:03
http://www.erpbus.net/access/topic.asp?topic_id=6930&forum_id=54

这是Access交流中心hung59直接在查询中做的例子

作者: gxason 时间: 2003-4-3 07:24
我正在下载不知道好不好用??

作者: cg1 时间: 2003-4-6 18:59
http://temp.shtip.com.cn/web/index.asp?board=4&mode=3&recordid=254

也许你还有启发

作者: 哈瘌子 时间: 2003-4-10 21:05

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

能解释一下　f 的作用吗？

作者: marco2 时间: 2003-10-9 17:00
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

作者: nxjswt 时间: 2005-7-14 09:40
谢谢!!!!!!!!!!!

作者: cdwlove 时间: 2005-12-5 22:15
看帖不忘顶!!!!

作者: wf_xcb 时间: 2005-12-6 17:37
商榷！

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

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

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

[em01]

作者: tonywang 时间: 2005-12-7 19:14
厉害，

作者: ljp518 时间: 2014-2-14 16:44
谢谢分享

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)