主题：[求助]表A中选择多行后，在表B中找出对应行并替换某列数值？

Dim T As String
Dim dr1,dr2 As DataRow

Dim drs As List(Of DataRow)
drs = DataTables("表A").Select("[品名] = 'PD01'")

for Each dr1 in drs
    T = "[品名] = '" & dr1("品名") & "'And [规格] = '" & dr1("规格") & "'"   
    dr2 = DataTables("表B").Find(T) 
    if dr2 IsNot Nothing then
       dr2("客户")＝"PPP"
    end if
Next