|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
大家好,新人正在学习VBA,正在写两个个控件的change事件,每当改变ConboBox2时都会触发ComboBox3的事件,如何能够在执行上面事件的时候暂停其他事件的触发呢?查了很久,只有Application.EnableEvents,但这个命令时无法控制控件的。
Private Sub ComboBox2_Change()
ComboBox3.Value = ""
ComboBox4.Value = ""
End Sub
Private Sub ComboBox3_Change()
Dim a, get_arr As Object
Dim b As String
Dim c, e
Dim arr1, arr2
b = ComboBox1.Text
c = ComboBox3.Text
ComboBox2.Value = ""
ComboBox4.Value = ""
If b = "电脑" Then
Set a = QueryExt("select 型号,快速服务代码 from 电脑 Where (序列号='" & c & "' or '" & c & "'='')")
Set get_arr = CreateObject("scripting.dictionary")
arr1 = a.GetRows(, , "型号")
a.MoveFirst
arr2 = a.GetRows(, , "快速服务代码")
a.MoveFirst
Disconnect
ComboBox2.Value = arr1(0, 0)
ComboBox4.Value = arr2(0, 0)
Set a = Nothing
End If
End Sub
还有ComboBox控件禁止编辑以后每次选择内容后都无法直接触发AfterUpdate,这个要怎么设置才能选中内容直接触发更新呢? |
|