通常我们使用以下的代码进行记录循环:
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
