通常我們使用以下的代碼進行記錄循環：
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->
