专家坐堂-[求助]这段代码效率好低Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]这段代码效率好低  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105204)

--  作者：lihbin
--  发布时间：2017/8/14 11:10:00
--  [求助]这段代码效率好低

For Each r3 As Row In Tables("添加路段_路灯分布").GetCheckedRows
DataTables("故障详情").deletefor("[灯杆编号] is null")
Tables("故障统计.故障详情").AddNew
Dim r2 As Row = Tables("故障统计.故障详情").AddNew
r2("灯杆编号") = r3("灯杆编号")
r2("道路名称") = r3("道路名称")
r2("路段") = r3("路段")
r2("灯杆位置") = r3("灯杆位置")
r2("灯杆序列") = r3("灯杆序列")
r2("灯杆样式") = r3("灯杆样式")
r2("灯源类型") = r3("灯源类型")
r2("供电箱变") = r3("供电箱变")
r2("接触器") = r3("接触器")
Next

执行要几十秒；大神们帮忙看看哪里的问题吧！

--  作者：有点甜
--  发布时间：2017/8/14 11:18:00
--
Systemready = False
DataTables("故障详情").deletefor("[灯杆编号] is null")
DataTables("故障详情").StopRedraw
For Each r3 As Row In Tables("添加路段_路灯分布").GetCheckedRows
    Dim r2 As Row = Tables("故障统计.故障详情").AddNew
    r2("灯杆编号") = r3("灯杆编号")
    r2("道路名称") = r3("道路名称")
    r2("路段") = r3("路段")
    r2("灯杆位置") = r3("灯杆位置")
    r2("灯杆序列") = r3("灯杆序列")
    r2("灯杆样式") = r3("灯杆样式")
    r2("灯源类型") = r3("灯源类型")
    r2("供电箱变") = r3("供电箱变")
    r2("接触器") = r3("接触器")
Next
DataTables("故障详情").ResumeRedraw
Systemready = True

--  作者：lihbin
--  发布时间：2017/8/14 13:14:00
--
谢谢有点甜老师，问题解决了！