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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码效率求助

共有3540人关注过本帖树形打印复制链接主题：代码效率求助

凡夫俗子

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

加好友

发短信

等级：一尾狐帖子：457 积分：3523 威望：0 精华：0 注册：2016/1/22 18:17:00

代码效率求助 发帖心情

Post By：2016/4/27 15:30:00 [只看该作者]

需求时对A表“物料测试”表进行循环遍历

对每行数据对表B "物料“ 表进行 select查找

将查找到的行的名称及规格型号重新赋值（即批量将表B的名称，规格型号进行全部修改）

以下代码目前测试，一条数据需要0.2652秒左右， 30条数据需要2.137秒，如果是2万条数据那就需要 40分钟了

Dim st As Date = Date.Now '要测试耗时的代码

Dim drs As List(Of DataRow)

drs = DataTables("物料测试").Select("测试 = true")

For Each dr As DataRow In drs

Dim drbs As List(Of DataRow)

drbs = DataTables("物料").Select("[代码] = '" & dr("代码") & "'")

For Each drb As DataRow In drbs

drb("名称") = dr("名称")

drb("规格型号") = dr("规格型号")

msgbox("完成耗时:" & Format((Date.Now - st).TotalSeconds,"0.0000") & "秒")

如何修改本代码。提高效率。

如果使用网络EXCEL平台这样的操作是秒级完成的。

[此贴子已经被作者于2016/4/27 15:30:24编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/27 15:32:00 [只看该作者]

肯定是你dataColChanged事件有耗时的代码，试试

SystemReady = False

'你原本的代码

SystemReady = False

凡夫俗子

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

加好友

发短信

等级：一尾狐帖子：457 积分：3523 威望：0 精华：0 注册：2016/1/22 18:17:00

Post By：2016/4/27 15:40:00 [只看该作者]

这个加了没有效果，所有代码没放这个

SystemReady = False

'你原本的代码

SystemReady = true

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/27 15:40:00 [只看该作者]

或者做个例子上来测试，你这里赋值和查找在一起了，有可能慢，试试代码

SystemReady = False
Dim st As Date = Date.Now '要测试耗时的代码
Dim drs As List(Of DataRow)
drs = DataTables("物料测试").Select("测试 = true")
Dim alldrs As New Dictionary(Of List(Of DataRow), DataRow)
For Each dr As DataRow In drs
    Dim drbs As List(Of DataRow)
    drbs = DataTables("物料").Select("[代码] = '" & dr("代码") & "'")
    alldrs.add(drbs, dr)
Next
For Each key As object In alldrs.Keys
    Dim dr As DataRow = alldrs(key)
    For Each drb As DataRow In key
        drb("名称") = dr("名称")
        drb("规格型号") = dr("规格型号")
    Next
Next
msgbox("完成耗时:" & Format((Date.Now - st).TotalSeconds,"0.0000") & "秒")
SystemReady = True

凡夫俗子

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

加好友

发短信

等级：一尾狐帖子：457 积分：3523 威望：0 精华：0 注册：2016/1/22 18:17:00

Post By：2016/4/27 15:44:00 [只看该作者]

另测试发现

我要用表A的数据去更新表B的数据数据结构相同测试数据记录数为20000条

如果在表B对所有的行进行循环，在表A中执行FIND查找，找到进更新表B的名称和规格耗时 0.9秒

但是如果反过来，对表A进行循环再对表B进行FIND查找，找到就更新表B的名称和规格完成本操作大概要40分钟

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/27 15:45:00 [只看该作者]

看4楼代码。

凡夫俗子

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

加好友

发短信

等级：一尾狐帖子：457 积分：3523 威望：0 精华：0 注册：2016/1/22 18:17:00

Post By：2016/4/27 16:59:00 [只看该作者]

谢谢这段代码有效21346条数据测试0.9秒符合要求

凡夫俗子

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

加好友

发短信

等级：一尾狐帖子：457 积分：3523 威望：0 精华：0 注册：2016/1/22 18:17:00

Post By：2016/4/27 17:26:00 [只看该作者]

如果将这段代码改成更新后台数据的

SystemReady = False
Dim st As Date = Date.Now '要测试耗时的代码
Dim drs As List(Of DataRow)

Dim drbs As List(Of DataRow)
drs = DataTables("物料测试").Select("测试 = true")
Dim alldrs As New Dictionary(Of List(Of DataRow), DataRow)
For Each dr As DataRow In drs

    drbs = DataTables("物料").SQLSelect("[代码] = '" & dr("代码") & "'")
    alldrs.add(drbs, dr)
Next
For Each key As object In alldrs.Keys
    Dim dr As DataRow = alldrs(key)
    For Each drb As DataRow In key
        drb("名称") = dr("名称")
        drb("规格型号") = dr("规格型号")
    Next
Next

DataTables("物料").SQLUpdate(drbs)

msgbox("完成耗时:" & Format((Date.Now - st).TotalSeconds,"0.0000") & "秒")
SystemReady = True

这样也是非常耗时的