以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  外部数据源遍历加入到表，速度问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100212)
--  作者：菜鸟王中王
--  发布时间：2017/5/6 21:18:00
--  外部数据源遍历加入到表，速度问题
我用的sql server外部数据源 使用类似于：
For Each dr As DataRow In DataTables("专业技术职务").Select("")
    Tables("a").AddNew
    Tables("a").Current("a")=dr("名称")
    Tables("a").Current("b")=("简码")
    Tables("a").Current("c")=("编码")    
Next



For Each us As UserInfo In Users
     Tables("表A").AddNew
     Tables("表A").Current("a")=us.Name
Next

的遍历来加入到表中，但是加入的记录速度很慢，大约1秒一条记录。
但是我新建一个项目内部数据源数据测试，秒加
很明显速度不正常，求救。
--  作者：有点色
--  发布时间：2017/5/7 12:58:00
--  

 试试

 

Systemready = False
Tables("a").StopRedraw
For Each dr As DataRow In DataTables("专业技术职务").Select("")
    Dim nr As Row = Tables("a").AddNew
    nr("a")=dr("名称")
    nr("b")=("简码")
    nr("c")=("编码")
Next
Tables("a").ResumeRedraw
Systemready = True
--  作者：菜鸟王中王
--  发布时间：2017/5/7 19:52:00
--  
谢谢