- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]两表记录比对（附项目） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=17813)
-- 发布时间：2012/3/25 21:49:00
-- [求助]两表记录比对（附项目）
求助高手--两表比对：
要求：比对两表记录是否一致，分别在两表的标志栏都填“一致”or“不一致” （即要求正向比对和逆向比对）
（注：“个人ID”与“日志号”只要满足一个相同即认为记录相同）
补充：要求在日期一致的情况下进行比对
在线等待~~~~~~~~谢谢啦~~~~~~~~~~~
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目6_对账明细_nh2.table |
[此贴子已经被作者于2012-3-25 22:05:27编辑过]
-- 发布时间：2012/3/25 22:32:00
--
条件自己改吧。
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
-- 发布时间：2012/3/25 23:17:00
--
谢谢大师
增加条件后出现如下错误，再请大师指点，谢谢
此主题相关图片如下：错误.jpg
-- 发布时间：2012/3/26 0:01:00
--
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
-- 发布时间：2012/3/26 22:54:00
--
为什么只在一张表中填入对比结果
-- 发布时间：2012/3/27 0:11:00
--
总不至于都别人帮你写吧，写了一个表了，第二个表你还不会吗？
-- 发布时间：2012/3/27 7:37:00
--
先按顺序看帮助，要掌握基本的概念和方法，否则别人写的代码你也看不懂，没有任何意义。
帮助要按顺序看，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。三遍之后才开始做系统，遇到问题在帮助找答案，找不到的在论坛提问。
