以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于日期提醒的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111807)

--  作者:裴保民
--  发布时间:2017/12/29 15:43:00
--  关于日期提醒的问题
Dim llkdt As Integer = Tables("提醒时间设置").Current("流量卡失效提前提醒天数设置")
Dim Ldt As Date = Date.Today.AddDays(llkdt)
Tables("提醒窗体_Table1").AllowEdit = False
Tables("提醒窗体_Table1").filter= "流量卡有效期至<= #" & Ldt & "# and 是否可以续费 = true"

这样设置会出现流量卡到期后如果卡的性质是可以续费的,他就一直提醒,怎么设置提前几天开始提醒,经过提醒一段时间后就不在提醒了呢?


--  作者:有点甜
--  发布时间:2017/12/29 15:49:00
--  

比如可以这样

 

Tables("提醒窗体_Table1").filter= "流量卡有效期至 >= #" & date.today & "# and 流量卡有效期至<= #" & Ldt & "# and 是否可以续费 = true"