主题：菜单的时间筛选

DIM SD AS DATE
DIM ED AS DATE
With RibbonTabs("【定位筛选】")("定位筛选")
        If Date.TryParse(.Items("SD").Text,SD) Then '如果输入了有效的起始日期
        If Date.TryParse(.Items("ED").Text,ED) Then '而且输入了有效的结束日期
            '那么筛选两个日期之间的数据
            CurrentTable.Filter = "[订购日期] >= #" & SD & "# And [订购日期] <= #" & ED & "#"
            
     Else '否则筛选大于起始日期的数据
            CurrentTable.Filter = "[订购日期] >= #" & SD & "#"
       
End If
    ElseIf Date.TryParse(.Items("ED").Text, ED) Then '如果输入了有效的结束日期
        CurrentTable.Filter = "[订购日期] <= #" & ED & "#"

End If
 END WITH

 上面的代码我在其中的一张表中可以成功的筛选出日期，但我想问一下，如果在另外一张表有一个字段为“提取日期”的话，菜单的时间筛选应该怎么加进这个字段或者就是说时间筛选的菜单通用代码是怎样写的！我跟这个代码改写了几个，都不筛选。

  老大不会吧，比如有一张表示库存的，有进仓日期和出仓日期，全部改为日期，字段就重复了。怎么做表？

我只是举个列子而已。

    我也知道这样是最好的，但这样改的话，我有很多东西必须全部动了。有一些是日期参与代码计算的，还有报表都设计好了。请狐爸和LXL老师看看有什么简便的方法可以解决？

  好长时间没有看见LXL老师的帖子了。干嘛去了？