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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]这段代码效率好低

共有1456人关注过本帖树形打印复制链接主题：[求助]这段代码效率好低

lihbin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：12 积分：143 威望：0 精华：0 注册：2016/12/23 9:47:00

[求助]这段代码效率好低 发帖心情

Post By：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("接触器")

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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：12 积分：143 威望：0 精华：0 注册：2016/12/23 9:47:00

Post By：2017/8/14 13:14:00 [只看该作者]

谢谢有点甜老师，问题解决了！

下一主题 >> << 上一主题

主题：[求助]这段代码效率好低