- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]有关SQL查询表问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=21184)
-- 发布时间：2012/7/4 17:05:00
-- [求助]有关SQL查询表问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:查询.table |
见附件，查询显示最后一次检定有效期，那如果有效期超过了就不显示 检定编号 及 有效期 如何修改代码？我试了好久无法完成，求大神们帮忙！！
[此贴子已经被作者于2012-7-5 8:05:08编辑过]
-- 发布时间：2012/7/4 18:02:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:查询 (1).table |
-- 发布时间：2012/7/5 8:05:00
--
不好意思，这不是我想要的结果。你没理解我的话。
-- 发布时间：2012/7/5 9:16:00
--
你的项目中查询表中的数据，是你想要通过设备清单和检定数据两个表结合查询所要得的结果吗？
-- 发布时间：2012/7/5 9:29:00
--
我觉得二楼的结果没错啊
-- 发布时间：2012/7/5 10:13:00
--
我的意思是查询后的结果如果有效期已经过期了，那有效期和证书编号两格内容为空，不是不显示当前条内容，而且你查询的只要有有效期都显示出来，而不是同一产品只显示最后日期条。
-- 发布时间：2012/7/5 10:18:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:查询.table |
见附件查询为查询设备清单及检定数据后得到的。我现在想要有效期超了的不显示有效期及证书编号。效果如表3
-- 发布时间：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)
-- 发布时间：2012/7/5 11:20:00
--
狐爸，这个只能用窗口来做吗？SQL查询表做不了？
-- 发布时间：2012/7/5 11:22:00
--
当天的日期不固定，所以必须用代码。
除非你用Sql server，因为sql server有函数可以获得当天日期。