主题：如何在两个表中查询有两个以上字段完全相等的记录进行更新？

Dim dt As DataTable = DataTables("表A")
Dim dtB As DataTable = DataTables("表B")
dt.StopRedraw

For Each dr As DataRow In DataTables("表A").DataRows
    For Each fdr As DataRow In dtB.Select("B1='" & dr("A1") & "' And B2='" & dr("A2") & "'")
        dr("A3") = fdr("B3")
    Next
Next
dt.ResumeRedraw

 参考代码

http://www.foxtable.com/webhelp/scr/1453.htm