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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据比对问题

共有2267人关注过本帖树形打印复制链接主题：数据比对问题

wangnovel

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

等级：童狐帖子：211 积分：2241 威望：0 精华：0 注册：2012/10/6 17:19:00

数据比对问题 发帖心情

Post By：2017/1/21 0:07:00 [只看该作者]

表A

表B

两表（均为内部表）各有记录若干，并按ID值进行排序。现在需要对两张表进行操作，操作之前要进行检测，检测两表的ID值是否一一对应相等，如果不对应，应进行提示。提示以表A为准，如上图，系统应提示ID为13的记录与表B不匹配

请问，检测代码如何写比较好？

[此贴子已经被作者于2017/1/21 1:04:09编辑过]

有点蓝

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

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/1/21 9:16:00 [只看该作者]

Dim ids As List(Of String) = DataTables("表B").GetValues("ID")

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

If ids.Contains(dr("ID")) = False Then

msgbox(dr("ID") & "不在表B")

End If

有点蓝

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

等级：超级版主帖子：110544 积分：562604 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/1/21 9:17:00 [只看该作者]

或试试

Dim drs As List(of DataRow) = DataTables("表A").SQLSｅlect("ID not in (sｅlect distinct ID from 表B)")

For Each dr As DataRow In drs

msgbox(dr("ID") & "不在表B")

wangnovel

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

等级：童狐帖子：211 积分：2241 威望：0 精华：0 注册：2012/10/6 17:19:00

Post By：2017/1/22 19:59:00 [只看该作者]

非常感谢！

主题：数据比对问题