主题：[求助]如何按这样的条件查询，求大神帮忙！

有生产日期列和保质期列，现在查询窗口做如下查询：以查询时当前电脑时间为条件。

1：查出保质期为3-5年（包含5年）内，生产日期满1年6个月的，

2：查出保质期为5-8年（包含8你）内，生产日期满3年的

3: 查出保质期为8年以上的，生产日期满5年的

以上传项目，求大神帮忙。谢谢！

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

点击浏览该文件:管理项目3.table

比如第一个这样查，其余的参考来做

 

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

甜版，麻烦帮忙做个完整的吧！

 这么简单的改动如果不会，就算了。

甜甜啊，年级大了，没学过啊，就是没事学着玩玩，现在这对你来说简单，对我来说都很困难啊！

第二个

 

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

第三个

 

Dim scrq As Date = Date.Today.AddYears(-5)
Dim bzq1 As Double = 8
Tables("表A").Filter = "生产日期 < #" & scrq & "# and convert(保质期年,'System.Double') >= " & bzq1

谢谢甜甜了，再你的刺激下，改好了，但是我有点不明白这句红色代码的意思Dim scrq As Date = Date.Today.AddYears(-3)

http://www.foxtable.com/help/topics/0258.htm