以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如果快速找出对应行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79397)
--  作者：linswcfr
--  发布时间：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 & "秒")

 

这段很耗时，要怎么改进了，请老师帮忙！
--  作者：大红袍
--  发布时间：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
--  发布时间：2015/12/30 15:48:00
--  
谢谢老师