- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]我想做一个自动校对并找出不同项目的查询 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56042)
-- 发布时间：2014/8/28 11:28:00
-- [求助]我想做一个自动校对并找出不同项目的查询
如图，有A B两张表，字段一样除了逻辑字段表A的逻辑字段为A，表B为B。
现在我想让两张表做对比，如果\'项目名称\',\'费用等级\',\'诊疗项目编\'这个3个字段有不同，这表B的逻辑字段为true
核心思想是：A表是老表，B表在A表的基础上有改动，我现在想找出这些改动。并以表B为标准显示出来
此主题相关图片如下：qq图片20140828112553.jpg
此主题相关图片如下：qq图片20140828112553.jpg[此贴子已经被作者于2014-8-28 11:28:47编辑过]
-- 发布时间：2014/8/28 11:36:00
--
你的意思是，表B在表A上没有的行，就标为true？
For Each dr As DataRow In DataTables("表B").DataRows
Dim filter As String = "项目名称 = \'" & dr("项目编号") & "\' and 费用等级 = \'" & dr("费用等级") & "\' and 诊疗项目编号 = \'" & dr("诊疗项目编号") & "\'"
Dim fdr As DataRow = DataTables("表A").Find(filter)
If fdr Is Nothing Then
dr("B") = True
Else
dr("B") = False
End If
Next
-- 发布时间：2014/8/28 11:45:00
--
大神，运行提示 表达式中右括号过多，但是貌似已经运行成功了
[此贴子已经被作者于2014-8-28 11:46:13编辑过]
-- 发布时间：2014/8/28 11:47:00
--
不可能有问题，列名表名自己改一下。不行，就把例子上传上来。