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

谢谢!

 参考 http://www.foxtable.com/help/topics/2471.htm

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

一样的意思啊

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

此主题相关图片如下：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

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

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