【求助】帮忙看看这段代码有没有错..

yangruihao

Private Sub Combo9_KeyDown(KeyCode As Integer, Shift As Integer)
   
    Select Case KeyCode
    Case vbKeyControl
        Me.Combo9 = Null
        Me.Combo9.RowSource = "SELECT 单位 FROM 表1"
    Case 38, 40
        Me.Combo9.OnChange = ""
    Case Else
        Me.Combo9.OnChange = "[Event Procedure]"

End Sub

yanwei82123300

感觉这段有问题！ Me.Combo9.OnChange = "[Event Procedure]"
而且缺少结束句
end select

yanghua1900363

Private Sub Combo9_KeyDown(KeyCode As Integer, Shift As Integer)

   
    Select Case KeyCode
    Case vbKeyControl
        Me.Combo9 = Null
       ' Me.Combo9.RowSource = "SELECT 单位 FROM 表1"  '命令按钮是没有RowSource属性的
    Case 38, 40
       ' Me.Combo9.OnChange = ""      '命令按钮是没有RowSource属性的
    Case Else
       ' Me.Combo9.OnChange = "[Event Procedure]"
                                    '缺少 end select

End Sub

yangruihao

yanghua1900363 发表于 2011-10-28 11:15
Private Sub Combo9_KeyDown(KeyCode As Integer, Shift As Integer)

   

谢谢了哦，还没想好该怎么改

yangruihao

yanwei82123300 发表于 2011-10-28 08:14
感觉这段有问题！ Me.Combo9.OnChange = "[Event Procedure]"
而且缺少结束句
end select

THX,你觉得该怎么改呢。。

咱家是猫

yanghua1900363 发表于 2011-10-28 11:15
Private Sub Combo9_KeyDown(KeyCode As Integer, Shift As Integer)

   

Me.Combo9.RowSource  
从控件名来看,是一个组合框,而不是按钮

Me.Combo9.OnChange = "[Event Procedure]"
这里也是没有错的.

确实少了End Select 句.

yanghua1900363

咱家是猫 发表于 2011-10-28 13:36
Me.Combo9.RowSource  
从控件名来看,是一个组合框,而不是按钮

谢谢提醒 我再好好看看