Foxtable(狐表)用户栏目专家坐堂 → 如何在两个表中查询有两个以上字段完全相等的记录进行更新?


  共有2125人关注过本帖树形打印复制链接

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

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110553 积分:562655 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部