- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何把两个表比对的结果显示在对比表中？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64131)
-- 发布时间：2015/2/5 16:29:00
-- 如何把两个表比对的结果显示在对比表中？
此主题相关图片如下：1.jpg
此主题相关图片如下：2.jpg
此主题相关图片如下：3.png
如图，如何把两个表比对的结果显示在对比表中？
表<孕检名单>中单位名称，组名称，女方姓名，男方姓名，如果和表<期末措施>里的单位名称，组名称，女方姓名，男方姓名不相同，那么就把结果在表<查询对比>中显示出来，请教老师怎么写代码，谢谢
-- 发布时间：2015/2/5 16:32:00
--
上例子
[此贴子已经被作者于2015-2-5 16:32:05编辑过]
-- 发布时间：2015/2/5 16:34:00
--
[此贴子已经被作者于2015-2-6 7:49:11编辑过]
-- 发布时间：2015/2/5 16:43:00
--
结果显示：导出表<期末措施>里的单位名称，组名称，女方姓名，男方姓名即可
-- 发布时间：2015/2/5 16:57:00
--
用SQL查询表
select * fro m {孕检名单} where 序号 not in (select 序号 fro m {孕检名单} a inner join {期末措施} b on a.单位名称=b.单位名称 and a.组名称=b.组名称 and a.女方姓名=b.女方姓名 and a.男方姓名=b.男方姓名)
-- 发布时间：2015/2/5 17:01:00
--
Dim dt1 As DataTable = DataTables("孕检名单")
Dim dt2 As DataTable = DataTables("期末措施")
Dim dt3 As DataTable = DataTables("查询对比")
dt3.DataRows.Clear
For Each dr As DataRow In dt1.Select("")
Dim filter As String = "单位名称 = \'" & dr("单位名称") & "\' and 组名称 = \'" & dr("组名称") & "\' and 女方姓名 = \'" & dr("女方姓名") & "\' and 男方姓名 = \'" & dr("男方姓名") & "\'"
Dim fdr As DataRow = dt2.Find(filter)
If fdr Is Nothing Then
Dim ndr As DataRow = dt3.AddNew
ndr("女方姓名") = dr("女方姓名")
ndr("男方姓名") = dr("男方姓名")
End If
Next