专家坐堂-关于提示问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于提示问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91673)

--  作者：huaqing8828
--  发布时间：2016/10/16 21:59:00
--  关于提示问题

Dim dt As Date = Date.Today.AddDays(4)
Dim dr As DataRow = DataTables("订单明细表").Find("交货日期 <= #" & dt & "#")
If dr IsNot Nothing Then
MessageBox.Show("有产品尽快要上模生产了!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Tables("订单明细表").Filter = "交货日期 <= #" & dt & "#"
MainTable = Tables("订单明细表")
End If
这是小于或等于四天进行提示的代码，可是大于交货日期了，上述代码还是显示”提示”，请教如何编写大于交货日期就不再显示“提示”

--  作者：y2287958
--  发布时间：2016/10/16 22:08:00
--
用select吧

--  作者：狐狸爸爸
--  发布时间：2016/10/17 7:54:00
--
Dim dt As Date = Date.Today.AddDays(4)
Dim dr As DataRow = DataTables("订单明细表").Find("交货日期 <= #" & dt & "# And 交货日期 >= #" & Date.Today & "#")
If dr IsNot Nothing Then
    MessageBox.Show("有产品尽快要上模生产了!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("订单明细表").Filter = "交货日期 <= #" & dt & "#"
    MainTable = Tables("订单明细表")
End If