主题：[求助]两表记录比对（附项目）

求助高手--两表比对：

 

要求：比对两表记录是否一致，分别在两表的标志栏都填“一致”or“不一致”  （即要求正向比对和逆向比对）

 

（注：“个人ID”与“日志号”只要满足一个相同即认为记录相同）

 

 

 

 

 

补充：要求在日期一致的情况下进行比对

 

 

 

 

 

在线等待~~~~~~~~谢谢啦~~~~~~~~~~~

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目6_对账明细_nh2.table

条件自己改吧。

 

For Each dr As DataRow In DataTables("NH2").DataRows
    Dim dr1 As DataRow = DataTables("对账明细").Find("个人ID = '" & dr("个人ID") & "'")
    If dr1 IsNot Nothing Then
        dr("标志") = "一致"
    Else
        dr("标志") = "不一致"
    End If
Next

谢谢大师

 

增加条件后出现如下错误，再请大师指点，谢谢

 

 

 

 

 

 

 

 

 

 

此主题相关图片如下：错误.jpg

For Each dr As DataRow In DataTables("NH2").DataRows
    Dim dr1 As DataRow = DataTables("对账明细").Find("个人ID = '" & dr("个人ID") & "'And 缴费日期 = #" & dr("日期") & "#")
    If dr1 IsNot Nothing Then
        dr("标志") = "一致"
    Else
        dr("标志") = "不一致"
    End If
Next

为什么只在一张表中填入对比结果

总不至于都别人帮你写吧，写了一个表了，第二个表你还不会吗？

先按顺序看帮助，要掌握基本的概念和方法，否则别人写的代码你也看不懂，没有任何意义。

帮助要按顺序看，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。三遍之后才开始做系统，遇到问题在帮助找答案，找不到的在论坛提问。