Foxtable(狐表)用户栏目专家坐堂 → 如何设置到期提醒功能


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

主题:如何设置到期提醒功能

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/30 11:30:00 [显示全部帖子]


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/30 12:18:00 [显示全部帖子]


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/30 14:57:00 [显示全部帖子]

If e.Col.Name = "随访_3个月_是否随访" Then
    If e.Row("随访_3个月_是否随访") = False Then
        If Date.today >= cdate(e.Row("检查时间")).AddDays(90) Then
            e.Style = "随访提醒"
        End If
    End If
End If

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/1 18:28:00 [显示全部帖子]

以下是引用bigpeng在2018/3/31 18:09:00的发言:
版主,数据库怎么执行sql不会呀
现在已经好了,是数据库那边有问题是吧?
我刚刚想试下每个随访周期都能提示一下,好像不行,提示有错误,只能有一个随访提醒是吧?
 

 

Dim dr As DataRow = DataTables("一站式多中心").sqlFind("DateDiff(d, 检查时间, GetDate()) >= 90 and 随访_3个月_是否随访=0")
If dr IsNot Nothing Then
    MessageBox.Show("您有病例3个月的随访尚未完成, 请注意红色标识部分!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
dr = DataTables("一站式多中心").sqlFind("DateDiff(d, 检查时间, GetDate()) >= 180 and 随访_6个月_是否随访=0")
If dr IsNot Nothing Then
    MessageBox.Show("您有病例6个月的随访尚未完成, 请注意红色标识部分!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/1 18:29:00 [显示全部帖子]

以下是引用bigpeng在2018/3/31 20:12:00的发言:
新出现一个问题,我这个表格设置是多用户协同工作,每个用户只能看到自己的数据,但现在发现只要有一条数据需要随访,那么所有的用户都会提示,但实际上其他用户是看不到这条数据的,怎么做到每个用户只提示自己的数据有没有到随访期

 

Dim dr As DataRow = DataTables("一站式多中心").sqlFind("DateDiff(d, 检查时间, GetDate()) >= 90 and 随访_3个月_是否随访=0 and 用户='" & user.name & "'")
If dr IsNot Nothing Then
    MessageBox.Show("您有病例3个月的随访尚未完成, 请注意红色标识部分!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
dr = DataTables("一站式多中心").sqlFind("DateDiff(d, 检查时间, GetDate()) >= 180 and 随访_6个月_是否随访=0 and 用户='" & user.name & "'")
If dr IsNot Nothing Then
    MessageBox.Show("您有病例6个月的随访尚未完成, 请注意红色标识部分!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/1 23:22:00 [显示全部帖子]

以下是引用bigpeng在2018/4/1 23:11:00的发言:
非常感谢甜版,37楼实现了不同周期的不同提醒,但38楼还是有问题,加入 and 用户='" & user.name & "'后,软件又是没有任何提醒了

 

红色代码改成自己的。【用户】改成自己的列名。 user.name 如果是自己设置的登陆窗口,改成 _userName


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/3 8:43:00 [显示全部帖子]

Dim dr As DataRow = DataTables("一站式多中心").sqlFind("DateDiff(d, 检查时间, GetDate()) >= 90 and 超声图片与视频 is null and 上传单位='" & user.name & "'")

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/3 8:45:00 [显示全部帖子]

If e.Col.Name = "超声图片与视频" Then
    If e.Row("超声图片与视频") = Nothing Then
            e.Style = "随访提醒"
    End If
End If

 回到顶部