Foxtable(狐表)用户栏目专家坐堂 → 过期30天后不再提示


  共有2181人关注过本帖树形打印复制链接

主题:过期30天后不再提示

帅哥哟,离线,有人找我吗?
鲁吉
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:710 积分:5345 威望:0 精华:0 注册:2013/5/27 9:48:00
过期30天后不再提示  发帖心情 Post By:2020/4/4 10:31:00 [只看该作者]

要实现三天内到期的弹窗提示“即将到期”数据涂黄,而过期30天后不再提示,但数据涂红。
下面代码:三天内到期和过期后提示,请问代码怎么改?
Dim dte2 As Date = Date.Today.AddDays(3)
Dim dr As DataRow = DataTables("改正").Find("限定日期 <= #" & dte2 & "#")
If dr IsNot Nothing Then
MessageBox.Show("有过期,或即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Tables("改正").Filter = "限定日期 <= #" & dte2 & "#"
Forms("查阅").open
End If

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105486 积分:536421 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/5 21:04:00 [只看该作者]

Dim dte2 As Date = Date.Today.AddDays(3)
Dim dte3 As Date = Date.Today.AddDays(-30)
Dim dr As DataRow = DataTables("改正").Find("限定日期 <= #" & dte2 & "# and  限定日期 >= #" & dte3 & "#")
If dr IsNot Nothing Then
    MessageBox.Show("有过期,或即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("改正").Filter = "限定日期 <= #" & dte2 & "# and  限定日期 >= #" & dte3 & "#"
    Forms("查阅").open
End If


 回到顶部