主题：有两张表，如何将一个表的某列数据导入另一个表中

for each dr1 as datarow in datatables("表1").Datarow

    Dim dr2 as datarow = datatables("表2").Find("姓名 = '" & dr1("姓名") & “’ and 手机 = '”& dr1("手机") & “‘ and qq = '” & dr1(“qq”) & “’” )

    if dr2 is not nothing then

         dr2("其他1") = dr1("其他1")
         dr2("其他2") = dr1("其他2")
         dr2("其他3") = dr1("其他3")

    end if

next