Foxtable(狐表)用户栏目专家坐堂 → 如何设计不同用户的到期提醒?


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

主题:如何设计不同用户的到期提醒?

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


加好友 发短信
等级:幼狐 帖子:171 积分:1392 威望:0 精华:0 注册:2013/2/1 10:00:00
如何设计不同用户的到期提醒?  发帖心情 Post By:2014/10/15 9:41:00 [只看该作者]

有一个订单跟踪表,想设定不同部门的到期提醒,如采部只需要看到采购到期提前3天的提示,如生产部的全部用户只需要看到生产到期提前3天的提示,

 回到顶部
帅哥哟,离线,有人找我吗?
643561836
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:171 积分:1392 威望:0 精华:0 注册:2013/2/1 10:00:00
  发帖心情 Post By:2014/10/15 9:42:00 [只看该作者]

根据不同的用户提醒不同的到期

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/10/15 9:51:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
643561836
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:171 积分:1392 威望:0 精华:0 注册:2013/2/1 10:00:00
  发帖心情 Post By:2014/10/15 11:10:00 [只看该作者]

这个到期帮助我看过了也做过,但不知如何设置根不列时间提醒不同部门!
图片点击可在新窗口打开查看此主题相关图片如下:001.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/10/15 11:11:00 [只看该作者]

加个条件判断就好.搞不定就上例子.描述清楚要求.

 回到顶部
帅哥哟,离线,有人找我吗?
643561836
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:171 积分:1392 威望:0 精华:0 注册:2013/2/1 10:00:00
  发帖心情 Post By:2014/10/15 11:11:00 [只看该作者]

如提前3天交货期提醒客服部
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:订单跟踪20140630.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
utcxray
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:668 积分:5053 威望:0 精华:0 注册:2011/10/22 13:37:00
  发帖心情 Post By:2014/10/15 12:02:00 [只看该作者]

Dim dt As Date = Date.Today.AddDays(5)

Dim dr As DataRow = DataTables("采购明细").Find("账期= #" & dt & "#")

If dr IsNot Nothing Then

    MessageBox.Show("注意:有5天内即将到期的付款!,请进入采购系统查看","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    End If


你参照下


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/15 14:21:00 [只看该作者]

 参考代码

 

Dim cname As String
Select Case user.Group
    Case "客服部"
        cname = "结束日期"
    Case "PMC"
        cname = "物料备齐日期"
End Select
If cname > "" Then
    Dim dt As Date = Date.Today.AddDays(3)
   
    Dim dr As DataRow = DataTables("任务").Find(cname & " >= #" & Date.Today & "# and " & cname & " <= #" & dt & "#")
   
    If dr IsNot Nothing Then
        MessageBox.Show("注意:有3天内即将到期的付款!,请进入采购系统查看","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If


 回到顶部