假定表A和表B都有品名、型号两列，我们在表A中选择了一行，希望从表B中找出相同品名、规格的行：
Dim dr1 As DataRow = Tables("表A").Current.DataRow
Dim dr2 As DataRow
dr2 = DataTables("表B").Find("[品名] = '" & dr1("品名") & "'And [规格] = '" & dr1("规格") & "'")
帮助中的上述代码可以实现在表A中选定一行后，在表B中找到对应的行。
我想参照引用的代码来实现：先在
表A中选择满足条件的所有行（十几个行），然后在表B中依次找到对应行后，将“客户”列内容改成“PPP”：
Dim drs As List(Of
DataRow)
drs = DataTables("表A").Select("[品名] = 'PD01' ")
Dim dr2 As DataRow
dr2 = DataTables("表B").Find("[品名] = '" & dr1("品名") & "'And [规格] = '" & dr1("规格") & "'")
dr2("客户")＝"PPP"
请高手加上二个循环，实现在二个表中的循环操作。不知道能否说明白，即是将原来功能中的选定一行改成选定多行，再执行查找，找到后将客户列内容改成“PPP”。
谢谢各位高人！！
加好友 
发短信
Post By：2008/12/15 11:01:00 [只看该作者]
