……
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次,该怎么改啊?