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)
加好友 
发短信
Post By：2018/5/3 10:25:00 [显示全部帖子]
