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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如果快速找出对应行

共有2092人关注过本帖树形打印复制链接主题：[求助]如果快速找出对应行

linswcfr

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

加好友

发短信

等级：二尾狐帖子：594 积分：5371 威望：0 精华：0 注册：2011/9/30 8:42:00

[求助]如果快速找出对应行 发帖心情

Post By：2015/12/30 15:02:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:找出对应行.foxdb

Dim st As Date = Date.Now
Dim arys As List (of String) = DataTables("表A").GetValues("ID")
For Each ary As String In arys
    For Each dr As DataRow In DataTables("表B").Select("ID = '" & ary & "'")
        dr("标识") = "ZD"
    Next
Next

'要测试耗时的代码
MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")

这段很耗时，要怎么改进了，请老师帮忙！

大红袍

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

加好友

发短信

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

Post By：2015/12/30 15:46:00 [只看该作者]

Dim st As Date = Date.Now
DataTables("表B").StopRedraw
DataTables("表B").ReplaceFor("标识", "ZD", "id in ('" & DataTables("表A").GetComboListString("id").replace("|", "','") & "')")
DataTables("表B").ResumeRedraw
'要测试耗时的代码
MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")

linswcfr

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

加好友

发短信

等级：二尾狐帖子：594 积分：5371 威望：0 精华：0 注册：2011/9/30 8:42:00

Post By：2015/12/30 15:48:00 [只看该作者]

谢谢老师

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

主题：[求助]如果快速找出对应行