Foxtable(狐表)用户栏目专家坐堂 → 如何实现高铁速度


  共有2332人关注过本帖树形打印复制链接

主题:如何实现高铁速度

帅哥哟,离线,有人找我吗?
hbhb
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5056 积分:13057 威望:0 精华:0 注册:2014/5/15 21:34:00
如何实现高铁速度  发帖心情 Post By:2016/9/12 10:48:00 [显示全部帖子]

蓝导:access外部数据源的下列代码 总共增加504行竟然要用5秒,破自行车的速度,如何提高?
For Each ary As String() In lstsz
    For Each km As String In bbkm
        Dim tr As Row = tb3.Table.AddNew
        tr("dtwlmxb1") = ary(0)
        tr("dtwlmxb2") = ary(0) & "--" & ary(1)
        tr("dtwlmxb3") = km
    Next
Next


 回到顶部
帅哥哟,离线,有人找我吗?
hbhb
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5056 积分:13057 威望:0 精华:0 注册:2014/5/15 21:34:00
  发帖心情 Post By:2016/9/12 12:09:00 [显示全部帖子]

就以上的代码呀,循环增加行,填写三列的数据。access外部数据源. 就是下面的代码也要2秒,如何优化速度?
for n as integer = 0 to 50 
   for t as integer = 1 to 8
    Dim tr As Row = tb3.Table.AddNew
  next
next

 回到顶部
帅哥哟,离线,有人找我吗?
hbhb
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5056 积分:13057 威望:0 精华:0 注册:2014/5/15 21:34:00
  发帖心情 Post By:2016/9/12 12:22:00 [显示全部帖子]

谢谢!改用事务快多了。一秒不到。

 回到顶部