- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何按这样的条件查询，求大神帮忙！ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=61771)
-- 发布时间：2014/12/18 21:13:00
-- [求助]如何按这样的条件查询，求大神帮忙！
有生产日期列和保质期列，现在查询窗口做如下查询：以查询时当前电脑时间为条件。
1：查出保质期为3-5年（包含5年）内，生产日期满1年6个月的，
2：查出保质期为5-8年（包含8你）内，生产日期满3年的
3: 查出保质期为8年以上的，生产日期满5年的
以上传项目，求大神帮忙。谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.table |
-- 发布时间：2014/12/18 21:28:00
--
比如第一个这样查，其余的参考来做
Dim scrq As Date = Date.Today.AddYears(-1).AddMonths(-6)
Dim bzq1 As Double = 3
Dim bzq2 As Double = 5
Tables("表A").Filter = "生产日期 < #" & scrq & "# and convert(保质期年,\'System.Double\') >= " & bzq1 & "and Convert(保质期年,\'System.Double\') <= " & bzq2
-- 发布时间：2014/12/18 21:34:00
--
甜版，麻烦帮忙做个完整的吧！
-- 发布时间：2014/12/18 21:38:00
--
这么简单的改动如果不会，就算了。
-- 发布时间：2014/12/18 21:53:00
--
甜甜啊，年级大了，没学过啊，就是没事学着玩玩，现在这对你来说简单，对我来说都很困难啊！
-- 发布时间：2014/12/18 21:58:00
--
第二个
Dim scrq As Date = Date.Today.AddYears(-3)
Dim bzq1 As Double = 5
Dim bzq2 As Double = 8
Tables("表A").Filter = "生产日期 < #" & scrq & "# and convert(保质期年,\'System.Double\') >= " & bzq1 & "and Convert(保质期年,\'System.Double\') <= " & bzq2
-- 发布时间：2014/12/18 21:59:00
--
第三个
Dim scrq As Date = Date.Today.AddYears(-5)
Dim bzq1 As Double = 8
Tables("表A").Filter = "生产日期 < #" & scrq & "# and convert(保质期年,\'System.Double\') >= " & bzq1
-- 发布时间：2014/12/18 22:16:00
--
谢谢甜甜了，再你的刺激下，改好了，但是我有点不明白这句红色代码的意思Dim scrq As Date = Date.Today.AddYears(-3)
-- 发布时间：2014/12/18 22:18:00
--
http://www.foxtable.com/help/topics/0258.htm