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

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

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：110783 积分：563847 威望：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

有点蓝

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

加好友

发短信

等级：超级版主帖子：110783 积分：563847 威望：0 精华：9 注册：2015/6/24 9:21:00

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

不需要双引号，改为自己的表名和列名即可

有点蓝

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

加好友

发短信

等级：超级版主帖子：110783 积分：563847 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/3/31 9:05:00 [显示全部帖子]

请上传实例说明

有点蓝

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

加好友

发短信

等级：超级版主帖子：110783 积分：563847 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/3/31 9:22:00 [显示全部帖子]

请上传具体可以测试的项目实例

有点蓝

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

加好友

发短信

等级：超级版主帖子：110783 积分：563847 威望：0 精华：9 注册：2015/6/24 9:21:00

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

文字提醒代码要放到afteropenproject事件

有点蓝

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

加好友

发短信

等级：超级版主帖子：110783 积分：563847 威望：0 精华：9 注册：2015/6/24 9:21:00

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

文件上传：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

有点蓝

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

加好友

发短信

等级：超级版主帖子：110783 积分：563847 威望：0 精华：9 注册：2015/6/24 9:21:00

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

执行sql自己看看是否有符合条件的数据

select * from 一站式多中心 where DateDiff('d', 检查时间, Date()) >= 90 and 随访_3个月_是否随访=false

有点蓝

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

加好友

发短信

等级：超级版主帖子：110783 积分：563847 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/3/31 15:43:00 [显示全部帖子]

请上传具体项目实例说明

有点蓝

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

加好友

发短信

等级：超级版主帖子：110783 积分：563847 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/3/31 16:38:00 [显示全部帖子]

给的例子的列名是

Dim dr As DataRow = DataTables("一站式多中心").sqlFind("DateDiff('d', 检查时间, Date()) >= 90 and 随访_3个月_有否随访=false")

改后打开项目就有提醒，测试没有问题。

如果是连接sqlserver，改为

Dim dr As DataRow = DataTables("一站式多中心").sqlFind("DateDiff('d', 检查时间, GetDate()) >= 90 and 随访_3个月_有否随访=0")

这个代码放在afteropenproject，只能在打开项目时提醒，如果要时时提醒，代码放到计划管理：http://www.foxtable.com/help/scr/0657.htm

有点蓝

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

加好友

发短信

等级：超级版主帖子：110783 积分：563847 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/3/31 17:14:00 [显示全部帖子]

以下sql放到外部数据库去执行，看提示什么错误，有没有查询结果，有没有符合条件的数据

select * from 一站式多中心 where DateDiff('d', 检查时间, GetDate()) >= 90 and 随访_3个月_是否随访=0

下一主题 >> << 上一主题

总数 13 1 2 下一页

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