表A与表B 匹配数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表A与表B 匹配数据

共有2286人关注过本帖树形打印复制链接主题：表A与表B 匹配数据

jerry_hwx

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：5 积分：108 威望：0 精华：0 注册：2015/7/16 23:40:00

表A与表B 匹配数据 发帖心情

Post By：2015/7/25 17:34:00 [只看该作者]

请问

表A有2列：流水号；员工号

表B有5列：流水号；员工号；体重；名字；部门

把满足表A与表B，流水号；员工号都相同的名字，填充到表A的第3列里面。

就是EXCEL的 VLOOKUP 功能。

谢谢

blsu33

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2015/7/25 22:36:00 [只看该作者]

建一个窗口为停靠类型属于表A 建一个Button 控件

Dim dr1 As DataRow

If DataTables("表a") IsNot Nothing And DataTables("表b") IsNot Nothing Then

For Each dr As DataRow In DataTables("表a").DataRows

If dr("流水号") IsNot Nothing AndAlso dr("员工号") IsNot Nothing Then

dr1=DataTables("表b").Find("流水号='"& dr("流水号") &"' And 员工号='"& dr("员工号") &"'")

If dr1 IsNot Nothing Then

dr("第3列")=dr1("名字")

End If

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/26 9:31:00 [只看该作者]

Dim dr1 As DataRow
For Each dr As DataRow In DataTables("表a").DataRows

    dr1=DataTables("表b").Find("流水号='"& dr("流水号") & "' And 员工号='" & dr("员工号") & "'")
    If dr1 IsNot Nothing Then
        dr("第3列")=dr1("名字")
    Else
        dr("第3列")=Nothing
    End If

Next

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/26 9:32:00 [只看该作者]

http://www.foxtable.com/help/topics/1451.htm

下一主题 >> << 上一主题

主题：表A与表B 匹配数据