不用 EOF 以加快记录循环
通常我们使用以下的代码进行记录循环：

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

回头试试，看看怎么样，

旧作了，呵呵

records.movelast
intRecCount=records.RecordCount
records.movefirst

for intCounter=1 to intRecCount
combo1.additem records![Full Name]
records.movenext
next intCounter
只要
intRecCount=records.RecordCount
for intCounter=1 to intRecCount
combo1.additem records![Full Name]
records.movenext
next intCounter
就可以了。
多此二举

或
for intCounter=1 to records.RecordCount
combo1.additem records![Full Name]
records.movenext
next
就可以了。

？？他这样做可以减少rs的读取量//

噢？你的意思是说
intRecCount=records.RecordCount
for intCounter=1 to intRecCount
combo1.additem records![Full Name]
records.movenext
next intCounter
比
rs.movelast
intRecCount=records.RecordCount
rs.movefirst
for intCounter=1 to intRecCount
combo1.additem records![Full Name]
records.movenext
next intCounter
多读取了rs？
我还没试过。如果真是这样我就要先谢谢了。

[此贴子已经被作者于2005-1-16 14:58:58编辑过]