对比两份资料的差异，能不能用狐表对比出来？？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 对比两份资料的差异，能不能用狐表对比出来？？

共有10282人关注过本帖树形打印复制链接主题：对比两份资料的差异，能不能用狐表对比出来？？

leaflong

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

加好友

发短信

等级：婴狐帖子：12 积分：184 威望：0 精华：0 注册：2012/7/6 11:29:00

Post By：2012/7/18 15:34:00 [只看该作者]

拜托，你看清我有没有提供

hhbb

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

加好友

发短信

等级：等待验证帖子：386 积分：2482 威望：0 精华：1 注册：2011/5/10 11:13:00

Post By：2012/7/18 15:37:00 [只看该作者]

你提供了,继续纸上谈兵!

mr725

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

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2012/7/19 0:04:00 [只看该作者]

回答9楼：

在我的按钮中代码后再加上这段：

For Each dr As DataRow In DataTables("表2").DataRows
    Dim f As String = "[编号] = " & dr("编号") & " And [描述]= '" & dr("描述") & "'"
    Dim s As String = ""
    Dim s2 As String =""
    Dim drf As DataRow
    drf = DataTables("表1").Find(f)
    If drf Is Nothing
        msgbox("【表2】不同的有: 编号为: 【" & dr("编号") & "】里面的 " & dr("位置") )
    End If
Next