[求助]有关SQL查询表问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]有关SQL查询表问题

共有8371人关注过本帖树形打印复制链接主题：[求助]有关SQL查询表问题

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/7/5 9:29:00 [显示全部帖子]

我觉得二楼的结果没错啊

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/7/5 11:00:00 [显示全部帖子]

Dim tb1 As Table = Tables("窗口1_Table1")
Dim d1 As Date = Date.Today
Dim sql As String
sql = " Select a.*,iif(有效期至 < #" & d1 & "# , Null, 有效期至) As 有效期至, iif(有效期至 < #" & d1 & "# , Null, 证书编号) As 证书编号 From{设备清单} a Left JOIN (Select 仪器编号,Max(证书编号) As 证书编号 ,Max(有效期至) As 有效期至 From{检定数据} group by 仪器编号) b ON a.仪器编号 = b.仪器编号 "

tb1.Fill(sql,"",True)