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

项目中有个提示设计，一旦有符合条件的记录就弹出对话框提示，但是操作起来一旦有N个记录满足条件，就有N个提示，这样没必要，如何使得系统就弹出一次提示就结束程序继续往下执行。

If dr1 IsNot Nothing Then

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

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

End If

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

1、窗口afterload事件：

Dim dr1 As DataRow = DataTables("注意事项").Find("提示 = 2 ")

Dim dr3 As DataRow = DataTables("注意事项").Find("开始提示 = 1")

'System.Threading.Thread.Sleep(8000) ‘暂停8秒

If dr3 IsNot Nothing Then

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

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

End If

If dr1 IsNot Nothing Then

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

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

End If

Dim dr2 As DataRow = DataTables("注意事项").Find("提示 = 3 And 完成 = False")

If dr2 IsNot Nothing Then

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

MessageBox.Show("有任务已经过期!", "警告", MessageBoxButtons.OK, MessageBoxIcon.Warning)

End If

2、还有就是Button Click事件：

Dim dr1 As DataRow = DataTables("注意事项").Find("提示 = 2 ")

Dim dr3 As DataRow = DataTables("注意事项").Find("开始提示 = 1")

If dr3 IsNot Nothing Then

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

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

End If

If dr1 IsNot Nothing Then

Tables("注意事项").filter = "提示 = 2"

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

End If

Dim dr2 As DataRow = DataTables("注意事项").Find("提示 = 3 And 完成 = False")

If dr2 IsNot Nothing Then

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

MessageBox.Show("有任务已经过期!", "警告", MessageBoxButtons.OK, MessageBoxIcon.Warning)

End If

Tables("注意事项").filter = ""

Tables("注意事项").sort = "排序用,结束日期"

--------

都是这种情况，重复几次弹窗。

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

If dr3 IsNot Nothing Then

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

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

return

End If

我的诉求是下面d3这段代码（绿色代码）要求符合这个条件的弹窗只弹出一次即可，再往下其他的条件的语句还是要继续执行下去的，不是终止。我不用filter用find好像可以解决，我再去试试。

另外还有类似的问题，就是像 for i= 1 to n 这样的循环，如何跳出循环往下继续执行代码，就像那种”exit，或者 break”语句跳出循环应该怎么写？

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

加一个变量控制

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

退出循环：http://www.foxtable.com/webhelp/topics/0225.htm

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

主题：减少提示次数