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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]两个表对比部分数据

共有2931人关注过本帖树形打印复制链接主题：[求助]两个表对比部分数据

81538475

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

加好友

发短信

等级：六尾狐帖子：1302 积分：10502 威望：0 精华：1 注册：2018/1/20 12:40:00

[求助]两个表对比部分数据 发帖心情

Post By：2018/4/14 19:21:00 [只看该作者]

关于两个表对比的帖子也看了，但是有一点不知道该如何写。例如表A和表B 都有任务列和工时列任务列的书写格式为 #12458 录入设备信息其中#后面为编号后面的文字为具体任务描述。现在希望只对比任务列#后面的编号，找出两个表中编号不同的列。如果编号完全相同，在对比相应的工时是否一致。

y2287958

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

加好友

发短信

等级：狐神帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2018/4/14 21:44:00 [只看该作者]

上例子

81538475

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

加好友

发短信

等级：六尾狐帖子：1302 积分：10502 威望：0 精华：1 注册：2018/1/20 12:40:00

Post By：2018/4/14 22:02:00 [只看该作者]

这两天不在电脑旁，如果不行的话，周一上传例子

81538475

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

加好友

发短信

等级：六尾狐帖子：1302 积分：10502 威望：0 精华：1 注册：2018/1/20 12:40:00

Post By：2018/4/16 18:09:00 [只看该作者]

测试文件上传。麻烦老大们看看，由于后面录入的内容可能会有手误，所以现在希望只是抽取每个任务的单号也就是#和后面的数字作为核对标准

下载信息 [文件大小：下载次数： ]
点击浏览该文件:test.foxdb

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/16 18:17:00 [只看该作者]

参考代码

Dim dt1 As DataTable = DataTables("表A")
Dim dt2 As DataTable = DataTables("表B")
For Each dr As DataRow In dt1.Select("")
    Dim fdr As DataRow = dt2.Find("任务 like '" & dr("任务").split(" ")(0) & " %'")
    If fdr Is Nothing Then
        msgbox(dr("任务"))
    Else
        If dr("工时") = fdr("工时") Then
            'msgbox(123)
        End If
    End If
Next