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


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

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

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


加好友 发短信
等级:幼狐 帖子:83 积分:532 威望:0 精华:0 注册:2018/1/28 23:08:00
如何设置到期提醒功能  发帖心情 Post By:2018/3/30 11:29:00 [只看该作者]

我有个表格需要定期随访功能,也就是在登记日期之后3个月、6个月需要回访一次,应该怎样才能做到根据登记日期后推3个月和6个月,表格中自动予以相应行的红底表示,并跳出一个文字提醒对话框,谢谢

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


加好友 发短信
等级:版主 帖子:69266 积分:347428 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/30 11:30:00 [只看该作者]


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


加好友 发短信
等级:幼狐 帖子:83 积分:532 威望:0 精华:0 注册:2018/1/28 23:08:00
  发帖心情 Post By:2018/3/30 12:02:00 [只看该作者]

这里已经看过了,因为几乎没有这方面基础,看不太懂,不太会根据我这里的需求进行调整,我的需求是想根据“登记日期”后推90天予以提醒,并且在姓名列和随访列同时予以红底白字标识

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


加好友 发短信
等级:版主 帖子:69266 积分:347428 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/30 12:18:00 [只看该作者]


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


加好友 发短信
等级:幼狐 帖子:83 积分:532 威望:0 精华:0 注册:2018/1/28 23:08:00
  发帖心情 Post By:2018/3/30 12:46:00 [只看该作者]

在DRAWCELL里尝试这么写代码,提示错误(目的是:如果"随访_3个月_是否随访"这列在“检查时间”+90天后仍是false的,予以“随访提醒” 

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


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


加好友 发短信
等级:版主 帖子:69266 积分:347428 威望: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

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


加好友 发短信
等级:幼狐 帖子:83 积分:532 威望:0 精华:0 注册:2018/1/28 23:08:00
  发帖心情 Post By:2018/3/30 20:15:00 [只看该作者]

谢谢甜版,已经实现在"随访_3个月_是否随访"红底白字的提醒,如果我想在相应行的“患者姓名”也出现红底白字的提醒,应该哪里再修正下,我刚刚尝试这么修正,提示错误
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

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


加好友 发短信
等级:幼狐 帖子:83 积分:532 威望:0 精华:0 注册:2018/1/28 23:08:00
  发帖心情 Post By:2018/3/30 20:19:00 [只看该作者]

另外,在项目事件AfterOpenProject应该怎样写入代码,以便打开项目的时候,能够自动提示哪些病人需要随访
(我对着那个帮助实在想不出解决办法,我只能是写好的代码,然后做一些简单的替换)
Dim dt As Date = Date.Today.AddDays(10)
Dim
 dr As DataRow = DataTables("库存表").Find("到期日期 <= #" & dt & "#")
If
 dr IsNot Nothing Then
    MessageBox.Show(
"有产品即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables
("库存表").Filter = "到期日期 <= #" & dt & "#"
    
MainTable = Tables("库存表")
End
 If

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


加好友 发短信
等级:超级版主 帖子:21961 积分:112017 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/30 20:53:00 [只看该作者]

回7楼

If e.Col.Name = "随访_3个月_是否随访" orelse  e.Col.Name = "患者姓名Then

回8楼

Dim dr As DataRow = DataTables("随访").sqlFind("DateDiff('d', 检查时间, Date()) >= 90 and 随访_3个月_是否随访=false")
If dr IsNot Nothing Then
    MessageBox.Show("随访提醒!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If


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


加好友 发短信
等级:幼狐 帖子:83 积分:532 威望:0 精华:0 注册:2018/1/28 23:08:00
  发帖心情 Post By:2018/3/30 21:31:00 [只看该作者]

7楼的方案已经ok,8楼的还是不行,是不是下面这个代码哪里有点小问题,比如检查时间需要加上双引号吗?

Dim dr As DataRow = DataTables("随访").sqlFind("DateDiff('d', 检查时间, Date()) >= 90 and 随访_3个月_是否随访=false")
If dr IsNot Nothing Then
    MessageBox.Show("随访提醒!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 回到顶部
总数 47 1 2 3 4 5 下一页