| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 按日期到期提醒问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=77382) |
| -- 作者：fszyhzg -- 发布时间：2015/11/17 14:15:00 -- 按日期到期提醒问题 狐友们，我做了一个弹窗提示，但不知为何没有符合条件也弹出窗口，我是想当有符合条件的时候才弹出窗口，没有符合条件就不弹出窗口 主窗口afterload代码： Dim dt As Date = Date.Today.AddDays(1) Dim dr As DataRow = DataTables("授权委托").Find("授权到期日期 <= #" & dt & "#") If dr IsNot Nothing Then MessageBox.Show("有工单未处理哦,千万别忘记了!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) forms("委托弹窗").show End If 弹窗afterload代码： Dim dt As Date = Date.Today.AddDays(1) Tables("委托弹窗_Table1").Filter = "[授权到期日期] <= #" & dt & "# And [作废] = False And [处理] = false" [此贴子已经被作者于2015/11/17 14:25:24编辑过]
|
| -- 作者：大红袍 -- 发布时间：2015/11/17 14:52:00 -- 呃，肯定有满足的才会弹出。是不是你日期的逻辑有问题？
Tables("委托弹窗_Table1").Filter = "[授权到期日期] >= #" & date.Today & "# and [授权到期日期] <= #" & dt & "# And [作废] = False And [处理] = false" |
| -- 作者：fszyhzg -- 发布时间：2015/11/17 15:32:00 -- 回复：（大红袍）呃，肯定有满足的才会弹出。是不是你... 谢谢，我再修改试试 |
| -- 作者：fszyhzg -- 发布时间：2015/11/17 16:06:00 -- 回复：（大红袍）呃，肯定有满足的才会弹出。是不是你... 红袍哥，请问Date.Today.AddDays(1)这1是指到期前一天提醒，我也想做个到期后一天提示，是不是Date.Today.AddDays(-1) |
| -- 作者：大红袍 -- 发布时间：2015/11/17 16:42:00 -- 延后n天提醒
Tables("委托弹窗_Table1").Filter = "[授权到期日期] <= #" & date.today & "# and [授权到期日期] >= #" & date.today.adddays(-3) & "# And [作废] = False And [处理] = false"
提前n天提醒
Tables("委托弹窗_Table1").Filter = "[授权到期日期] >= #" & date.today & "# and [授权到期日期] <= #" & date.today.adddays(3) & "# And [作废] = False And [处理] = false" |
| -- 作者：fszyhzg -- 发布时间：2015/11/17 17:27:00 -- 回复：（大红袍）延后n天提醒 Tables("委托弹... 非常感谢~~ |