主题：[求助]有关SQL查询表问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:查询.table

 

见附件，查询显示最后一次检定有效期，那如果有效期超过了就不显示 检定编号 及 有效期 如何修改代码？我试了好久无法完成，求大神们帮忙！！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:查询 (1).table

不好意思，这不是我想要的结果。你没理解我的话。

你的项目中查询表中的数据，是你想要通过设备清单和检定数据两个表结合查询所要得的结果吗？

我觉得二楼的结果没错啊

我的意思是查询后的结果如果有效期已经过期了，那有效期和证书编号两格内容为空，不是不显示当前条内容，而且你查询的只要有有效期都显示出来，而不是同一产品只显示最后日期条。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:查询.table

见附件查询为查询设备清单及检定数据后得到的。我现在想要有效期超了的不显示有效期及证书编号。效果如表3

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)

狐爸，这个只能用窗口来做吗？SQL查询表做不了？

当天的日期不固定，所以必须用代码。

除非你用Sql server，因为sql server有函数可以获得当天日期。