主题：日期筛选

我有一副本“材料跟催提醒_采购计划”窗口表，里面有一列“计划回厂”日期列，现在我需要筛选出在计划回厂日期的前10天的行，并且谈出一个叫“材料跟催提醒”的窗口，求代码。

谢谢!

我希望是通过计划管理来实现，每几分钟弹出一次窗口

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

为什么我筛选后出现的不全部是未来10天的行，而以前的也显示出来了啊

Dim dt As Date = Date.Today.AddDays(10)
Dim dr As DataRow = DataTables("采购计划").Find("计划回厂 <= #" & dt & "#")
If dr IsNot Nothing Then
    MessageBox.Show("有材料需要跟催了,千万别忘记了!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    Forms("材料跟催提醒").Show
    Tables("采购计划").Filter = "计划回厂 <= #" & dt & "#"
End If