减少提示次数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 减少提示次数

共有7176人关注过本帖树形打印复制链接主题：减少提示次数

有点蓝

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

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

Post By：2022/10/26 13:32:00 [显示全部帖子]

在什么事件写代码？完整代码打开发上来

有点蓝

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

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

Post By：2022/10/26 14:35:00 [显示全部帖子]

如果不想执行后面的代码，退出即可

If dr3 IsNot Nothing Then

Tables("注意事项").filter = "开始提示 = 1 And 完成 = False"

MessageBox.Show("有任务已经开始!", "提示", MessageBoxButtons.OK, MessageBoxIcon.information)

return

End If

有点蓝

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

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

Post By：2022/10/26 15:05:00 [显示全部帖子]

加一个变量控制

dim s as boolean

If dr3 IsNot Nothing Then

Tables("注意事项").filter = "开始提示 = 1 And 完成 = False"

MessageBox.Show("有任务已经开始!", "提示", MessageBoxButtons.OK, MessageBoxIcon.information)

s=true

End If

以下这部分（红色代码）还是要继续往下执行的：

If dr1 IsNot Nothing Then

Tables("注意事项").filter = "提示 = 2 And 完成 = False"

if s = false

MessageBox.Show("有任务即将到期!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

s=true

end if

End If

[此贴子已经被作者于2022/10/26 15:05:04编辑过]

主题：减少提示次数