预览模式: 普通 | 列表

在数据库中不用 EOF 以加快记录循环

作者:随然  日期:2005-09-29

通常我们使用以下的代码进行记录循环：
复制内容到剪贴板程序代码 程序代码
Do while not records.eof
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
分类:技术资料 | 固定链接 | 评论: 0 | 引用: 286 | 查看次数: 12438