Validatinng事件
If ("|" & e.Sender.ComboList & "|").Contains("|" & e.Sender.Text & "|") = False Then
msgbox("不匹配")
e.Cancel = True
End If
如果要取消下拉,编写代码
Dim cbx = e.Form.Controls("ComboBox1").basecontrolcbx.ShowDropDownButton = False