如何设置到期提醒功能 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有5252人关注过本帖树形打印复制链接主题：如何设置到期提醒功能

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个月，表格中自动予以相应行的红底表示，并跳出一个文字提醒对话框，谢谢

bigpeng

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：88 积分：574 威望：0 精华：0 注册：2018/1/28 23:08:00

Post By：2018/3/30 12:02:00 [显示全部帖子]

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

bigpeng

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

bigpeng

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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