以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  if else 判断  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118451)
--  作者：huhu
--  发布时间：2018/5/3 10:25:00
--  if else 判断
Dim jywg As WinForm.RadioButton = e.Form.Controls("RadioButton9")
Dim jywgyy As WinForm.TextBox = e.Form.Controls("TextBox17")
Dim r As Row = Tables("库存管理界面_table27").Current
If jywgyy.text = "请输入校验未过原因" Then
    msgbox(1)
    MessageBox.show("请先输入校验未过原因,然后点击NO","请输入校验未过原因",MessageBoxButtons.OK,MessageBoxIcon.Error)
    msgbox(2)
    jywg.checked = False
    msgbox(3)
Else
    r("校验结果") = "N"
    r("校验日期") = Date.Today
    r("校验未过原因") = jywgyy.text
End If
r.save

问题是怎么不是按照顺序弹出msgbox？发生出重复弹出。
弹出的顺序是msgbox(1),msgbox(”请先输入校验未过原因,然后点击NO")，msgbox(2),msgbox(1),msgbox(”请先输入校验未过原因,然后点击NO")，msgbox(2),msgbox(3),msgbox(3)
--  作者：有点甜
--  发布时间：2018/5/3 10:28:00
--  

执行红色代码可能重新触发了此事件

 

SystemReady = False
msgbox(1)
MessageBox.show("请先输入校验未过原因,然后点击NO","请输入校验未过原因",MessageBoxButtons.OK,MessageBoxIcon.Error)
msgbox(2)
jywg.checked = False
msgbox(3)
SystemReady = True