- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何设计不同用户的到期提醒？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58298)
-- 发布时间：2014/10/15 9:41:00
-- 如何设计不同用户的到期提醒？
有一个订单跟踪表，想设定不同部门的到期提醒，如采部只需要看到采购到期提前3天的提示，如生产部的全部用户只需要看到生产到期提前3天的提示，
-- 发布时间：2014/10/15 9:42:00
--
根据不同的用户提醒不同的到期
-- 发布时间：2014/10/15 9:51:00
--
http://www.foxtable.com/help/topics/2471.htm
搞不定就上例子
-- 发布时间：2014/10/15 11:10:00
--
这个到期帮助我看过了也做过，但不知如何设置根不列时间提醒不同部门！
此主题相关图片如下：001.jpg
-- 发布时间：2014/10/15 11:11:00
--
加个条件判断就好.搞不定就上例子.描述清楚要求.
-- 发布时间：2014/10/15 11:11:00
--
如提前3天交货期提醒客服部
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:订单跟踪20140630.foxdb |
-- 发布时间：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
你参照下
-- 发布时间：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