Foxtable(狐表)用户栏目专家坐堂 → 如何把两个表比对的结果显示在对比表中?


  共有3476人关注过本帖树形打印复制链接

主题:如何把两个表比对的结果显示在对比表中?

帅哥哟,离线,有人找我吗?
lrh9537
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:369 积分:3088 威望:0 精华:0 注册:2012/11/16 12:19:00
如何把两个表比对的结果显示在对比表中?  发帖心情 Post By:2015/2/5 16:29:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看
如图,如何把两个表比对的结果显示在对比表中?

表<孕检名单>中单位名称,组名称,女方姓名,男方姓名,如果和表<期末措施>里的单位名称,组名称,女方姓名,男方姓名不相同,那么就把结果在表<查询对比>中显示出来,请教老师怎么写代码,谢谢


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/2/5 16:32:00 [只看该作者]

上例子
[此贴子已经被作者于2015-2-5 16:32:05编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lrh9537
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:369 积分:3088 威望:0 精华:0 注册:2012/11/16 12:19:00
  发帖心情 Post By:2015/2/5 16:34:00 [只看该作者]

 

[此贴子已经被作者于2015-2-6 7:49:11编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lrh9537
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:369 积分:3088 威望:0 精华:0 注册:2012/11/16 12:19:00
  发帖心情 Post By:2015/2/5 16:43:00 [只看该作者]

结果显示:导出表<期末措施>里的单位名称,组名称,女方姓名,男方姓名即可


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By: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.男方姓名)

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部