以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  两表对比生成新表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=125116)
--  作者：fntfgz
--  发布时间：2018/9/20 10:20:00
--  两表对比生成新表

关于两表对比的例子论坛上挺多，但是防着写怎么也调不出来，还得请老师帮忙看看


图片点击可在新窗口打开查看此主题相关图片如下：两表对比.png
图片点击可在新窗口打开查看

 

例子

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:两表比较.zip

[此贴子已经被作者于2018/9/20 10:22:05编辑过]
--  作者：有点甜
--  发布时间：2018/9/20 10:29:00
--  
Dim ta As DataTable = DataTables("表A")
Dim tb As DataTable = DataTables("表B")
Dim tc As DataTable = DataTables("表C")
For Each r As DataRow In ta.DataRows
    Dim fdr = tb.Find("第一列 = \'" & r("第一列") & "\'")
    If fdr Is Nothing Then
        r("第十列") = "b不存在"
    Else
        fdr = tb.Find("第一列 = \'" & r("第一列") & "\' and 第二列 = \'" & r("第二列") & "\'")
        If fdr Is Nothing Then
            r("第十列") = "第二列不同"
        Else
            fdr = tb.Find("第一列 = \'" & r("第一列") & "\' and 第二列 = \'" & r("第二列") & "\' and 第三列 = \'" & r("第三列") & "\'")
            If fdr Is Nothing Then
                r("第十列") = "第三列不同"
            Else
                r("第十列") = "存在"
               
            End If
        End If
    End If
Next
--  作者：fntfgz
--  发布时间：2018/9/20 10:47:00
--  
谢谢，最爱咱们狐表的服务了
--  作者：fntfgz
--  发布时间：2018/9/20 11:07:00
--  
老师，如果比较相同的在记录则在两个表中删除，怎么写？
--  作者：有点甜
--  发布时间：2018/9/20 11:36:00
--  
以下是引用fntfgz在2018/9/20 11:07:00的发言：
老师，如果比较相同的在记录则在两个表中删除，怎么写？

 

参考 http://www.foxtable.com/webhelp/scr/0394.htm