在数据库中不用 EOF 以加快记录循环
作者:随然 日期:2005-09-29
通常我们使用以下的代码进行记录循环:
复制内容到剪贴板
程序代码

Do while not records.eof
combo1.additem records![Full Name]
records.movenext
loop
combo1.additem records![Full Name]
records.movenext
loop
结果是每个循环中数据库都要进行一次数据结束测试。在大量的记录的情况下, 浪费的时间相当大。 而使用以下的代码, 可以提高近 1/3 的速度:
复制内容到剪贴板
程序代码

records.movelast
intRecCount=records.RecordCount
records.movefirst
for intCounter=1 to intRecCount
combo1.additem records![Full Name]
records.movenext
next intCounter
intRecCount=records.RecordCount
records.movefirst
for intCounter=1 to intRecCount
combo1.additem records![Full Name]
records.movenext
next intCounter
[本日志由 随然 于 2005-09-29 00:05 AM 编辑]






评论: 0 | 引用: 286 | 查看次数: 13197
发表评论