ComBox 的Change 事件怎么无效

Question

 如题
 我想做一个三级联动的下拉框
 为什么下拉框值改变了不会触发这个事件啊
 郁闷了
 刚用VB不久
 还望指教哈

Answer 1

键盘输入的时候才能触发这个事件,用鼠标选你需要把代码放到Combo1_Click事件里

Answer 2

Private Sub cmbRoot_Click()Dim str As String
str = " ni shi shei"
 MsgBox (str)
   'If cmbRoot.Text <> "个人资源" Then
   'MsgBox "个人"
  ' ElseIf cmbRoot.Text <> "单位资源" Then
  ' MsgBox "单位"
  ' End If
   
End Sub
我把这段代码放进去就会出问题，点击控件的时候不但没有弹出对话框反而卡死了
郁闷哦

Answer 3

先普及一下普通话:
ni shi shei
ni shi shui

Answer 4

这样试试
Private Sub cmbRoot_Click()Dim str As String
str = " ni shi shei"
Me.Caption= str
   
End Sub

Answer 5

不顶用，还是卡死，开发工具和程序都卡死。只能用ctrl+alt+del强制关闭
我郁闷

Answer 6

三级联动... 估计是change过来又change过去了 ,断点看看吧

Answer 7

ComboBox
这个控件杂这么奇怪哦

Answer 8

这样测试正常
Private Sub Form_Load()
    cmbRoot.AddItem "个人资源"
    cmbRoot.AddItem "单位资源"
End SubPrivate Sub cmbRoot_Click()    Dim str As String
    
    str = " ni shi shei"
    MsgBox (str)
    
    If cmbRoot.Text <> "个人资源" Then
        MsgBox "个人"
    ElseIf cmbRoot.Text <> "单位资源" Then
        MsgBox "单位"
    End If
    
End Sub

Answer 9

怀疑你的其他代码或设置有问题，combobox是vb自带的应该没有这么复杂

Answer 10

想请教一个vb6.0的问题
我有一个access的表：DATA.mdb
想用vb6.0中的MSFLEXGRID空间来读取access表中的数据，请问怎么读取啊？
如何用MSFLEXGRID连接access表？
请高手指点下
详细点的
本人菜鸟
最好加注释！
谢谢啦