以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  elseif执行咨询  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=157535)

--  作者：guosheng --  发布时间：2020/10/20 9:54:00 --  elseif执行咨询 …… Elseif (e.Form.Controls("类别").value = "A"  And MessageBox.Show("A？", "警告", MessageBoxButtons.YesNo, MessageBoxIcon.Question)=DialogResult.Yes)  or (e.Form.Controls("类别").value = "B"  And MessageBox.Show("B？", "警告", MessageBoxButtons.YesNo, MessageBoxIcon.Question)=DialogResult.Yes) or (e.Form.Controls("类别").value = "C"  And MessageBox.Show("C？", "警告", MessageBoxButtons.YesNo, MessageBoxIcon.Question)=DialogResult.Yes)  Forms("Abc").close endif 我想让警告提示窗口根据e.Form.Controls("类别").value的值不同提示一次，但是以上代码，提示框出现了3次，该怎么改啊？

--  作者：有点蓝 --  发布时间：2020/10/20 10:07:00 --   ElseIf (e.Form.Controls("类别").value = "A"  OrElse e.Form.Controls("类别").value = "B"   OrElse e.Form.Controls("类别").value = "C"     If MessageBox.Show(e.Form.Controls("类别").value & "?", "警告", MessageBoxButtons.YesNo, MessageBoxIcon.Question)=DialogResult.Yes         Forms("Abc").close     End If End If