通常我们使用以下的代码进行记录循环:
Dowhilenotrecords.eof
combo1.additemrecords![FullName]
records.movenext
loop
结果是每个循环中数据库都要进行一次数据结束测试。在大量的记录的情况下,浪费的时间相当大。而使用以下的代码,可以提高近1/3的速度:
records.movelast
intRecCount=records.RecordCount
records.movefirst
forintCounter=1tointRecCount
combo1.additemrecords![FullName]
records.movenext
nextintCounter->