- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如果快速找出对应行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79397)
-- 发布时间：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 & "秒")
-- 发布时间：2015/12/30 15:48:00
--
谢谢老师