关于账龄的修改
时 间:2018-02-10 21:46:18
作 者:半夜罗 ID:36948 城市:成都
摘 要:每月余额列表,交叉表账龄分析
正 文:
我在本站关于类似的示例有三个,这与我的工作有关。所以就经常研究这方面的问题,如何提高速度,前面的例子经实际使用,效果虽然不错,能解决问题。但随着记录数据的增多,系统会逐渐减慢,直到无法忍受。所以不得不改变思路。尽量减少过程浓缩代码。终于以最少的过程实现目标。本想修改前面的例子,但本站提示超过30天的帖子不能修改。没办法,只好重新再发一贴。这个方法的速度如果不加进度条(完全可以不用进度条,速度会更快一倍有余,进度条只为以后数据量超大时使用准备的),其本身速度极快。除了核心计算部分,其他都用SQL语句查询,方便修改适应在不同的数据库中。更便于处理错误。
核心代码:
'-------------打开记录集
strSQL = "Select * FROM 销售账龄_计算表 orDER BY 姓名,月份"
Set rst = CreateObject("ADODB.recordset")
rst.Open strSQL, CurrentProject.Connection, 1, 3
rst.MoveFirst '从第一条记录开始
Do Until rst.EOF
If FD <> rst!姓名 Then '这里是要按往来代码的,否则此段代码可以不要
FD = rst!姓名
sum收款 = Nz(DSum("[收款加费用]", "销售账龄_计算表", "姓名='" & FD & "'"), 0)
End If
If Nz(rst!金额, 0) > Nz(rst!欠款, 0) Then rst!收款 = rst!金额
If Nz(rst!金额, 0) > Nz(rst!欠款, 0) And sum收款 < rst!金额 Then rst!收款 = sum收款
If Nz(rst!金额, 0) = 0 Then rst!欠款 = 0
rst!欠款 = Nz(rst!金额, 0) - Nz(rst!收款, 0)
sum收款 = sum收款 - Nz(rst!收款, 0)
rst.Update
sum收款 = sum收款
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
暂时我还没有发现需要修改的地方。不过也请各位大神检查,如果有不足敬请帮忙。
附 件:
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)
- 铁路工程管理系统;铁路工程管理小程...(04.10)
- 【Access查询示例】怎么将两个...(04.09)
- 【Access窗体导出PDF】Ac...(04.08)