以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]日期提醒没反应  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52790)
--  作者：utcxray
--  发布时间：2014/6/23 12:52:00
--  [求助]日期提醒没反应
Dim dt As Date = Date.Today.AddDays(7)
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

账期是采购明细表中的字段，日期型的
--  作者：Bin
--  发布时间：2014/6/23 14:07:00
--  
Dim dr As DataRow = DataTables("采购明细").Find("账期 <= #" & dt & "#")