- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何对记录快速定位并赋值？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=46963)
-- 发布时间：2014/3/2 10:05:00
-- [求助]如何对记录快速定位并赋值？
有3个表，表1（ 3列：编号/组号1/组内坐标 ）、表2（2列：编号/组号2）、表3 （ 3列：组号2/组号1/组内坐标 ），根据表3中的组号2列找到表2中对应的编号，从而将表3中的组号1/组内坐标的数据填充到表1相应的编号行中。
不知这有什么快速的方法？实际项目中的表1中的记录数可能比较多。
[此贴子已经被作者于2014-3-2 10:06:05编辑过]
-- 发布时间：2014/3/2 11:47:00
--
Dim drs As List(Of DataRow)
Dim dr2 As DataRow
For Each dr As DataRow In DataTables("表3").DataRows
drs = DataTables("表2").Select("[组号2] = \'" & dr("组号2") & "\'")
For Each dr1 As DataRow In drs
dr2 = DataTables("表1").Find("编号 = \'" & dr1("编号") & "\'")
If dr2 IsNot Nothing Then
dr2("组号1") = dr("组号1")
dr2("组内坐标") = dr("组内坐标")
End If
Next
Next