以文本方式查看主题 - 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" |