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


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

主题：如何设置到期提醒功能
帅哥哟，离线，有人找我吗？
bigpeng
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


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


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


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

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

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


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


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


加好友 发短信
等级：幼狐 帖子：88 积分：574 威望：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


加好友 发短信
等级：版主 帖子：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

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


加好友 发短信
等级：幼狐 帖子：88 积分：574 威望：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


加好友 发短信
等级：幼狐 帖子：88 积分：574 威望：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


加好友 发短信
等级：超级版主 帖子：110784 积分：563852 威望：0 精华：9 注册：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


加好友 发短信
等级：幼狐 帖子：88 积分：574 威望：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 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询