主题：关于筛选

我的表是 “主要生产原材料进料统计”

而我设置了筛选键，其代码为

Dim 起始日期填写 As Date
Dim 结束日期填写 As Date
Tables("主要生产原材料进料统计").Filter = "[日期] >= #" & 起始日期填写 & "# And [日期] <= #" & 结束日期填写 & "#"

在我输入了数据之后，为何筛选不出所选结果呢？

此主题相关图片如下：qq截图20130605094733.png

看看是否正常获得了你填写的值. 并且弹出拼接的筛选条件语句看看.

按照图示，假如我输入时间为2013-02-01至2013-02-10，

表中是有数据的，

但是点击筛选后，没有显示任何行。

起始日期填写 都不是控件的值，本来没有值，所以不行。你把控件的值赋值给起始日期填写 或直接用控件的值来筛选

“起始日期填写”，就是指控件 datetimepicker

所填写的日期，怎么会不是控件的值呢？

你上面给出的代码是筛选按钮的完全代码还是部分？如果是全部就是我说的问题。

上菜

Dim dt1 s Date = e.Form.Controls("起始日期填写").Value
Dim dt2 s Date = e.Form.Controls("结束日期填写 ").Value

Tables("主要生产原材料进料统计").Filter = "[日期] >= #" & dt1 & "# And [日期] <= #" & dt2 & "#"