Do while not records.eofcombo1.additem records![Full Name]records.movenextloop
结果是每个循环中数据库都要进行一次数据结束测试。在大量的记录的情况下, 浪费的时间相当大。 而使用以下的代码, 可以提高近 1/3 的速度:
records.movelastintRecCount=records.RecordCountrecords.movefirst
for intCounter=1 to intRecCountcombo1.additem records![Full Name]records.movenextnext intCounter
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18