有若干个表组成的一个购销存管理系统,在其中一个表使用ValidateEdit事件进行输入判定,设定了类似以下的代码
If e.Col.Name = "折扣" Then
If e.Text > "" Then
Dim v As Double = Val(e.Text)
If v > 0.15 Then
MessageBox.Show("兄弟,你想老板破产吗?", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
e.Cancel = True
End If
End If
End If
输入时如果超出了判定条件,弹出提示窗口,点击确定,回到输入编辑模式,正常情况是修改输入数据或ESC退出编辑模式。
现在无意中遇到了一个问题:当弹出提示窗口后,点击确定,回到单元编辑状态时,此时无意中点击到其他的表头,系统转到所点击的表中,之前的提示窗口出现,系统就卡死在这个提示窗口界面上,无法回到正常状态,也只能CTRL+ALT+DEL强行中断系统的运行。
请教如何避免这种情况发生?
当然,不要点击表头是一种办法,呵呵