以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何在两个表中查询有两个以上字段完全相等的记录进行更新？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100347)
--  作者：sysckj
--  发布时间：2017/5/10 2:50:00
--  如何在两个表中查询有两个以上字段完全相等的记录进行更新？
表A和表B中分别有两个字段A1 ,A2 ，B1,B2    要求在表A中找到所有符合（A1=B1 AND A2=B2）的所有记录，然后把B3的内容更新到A3中去，如何做？
--  作者：有点蓝
--  发布时间：2017/5/10 8:48:00
--  
Dim dt As DataTable = DataTables("表A")
Dim dtB As DataTable = DataTables("表B")
dt.StopRedraw
Dim fdr As DataRow
For Each dr As DataRow In DataTables("表A").DataRows
    fdr = dtB.Find("B1=\'" & dr("A1") & "\' And B2=\'" & dr("A2") & "\'")
    If fdr IsNot Nothing Then
        dr("A3") = fdr("B3")
    End If
Next
dt.ResumeRedraw
--  作者：有点色
--  发布时间：2017/5/10 9:00:00
--  

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
--  作者：有点色
--  发布时间：2017/5/10 9:00:00
--  

 参考代码

 

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