是日期型
Private Sub Combo1_Change()
Select Case Combo1.Index
改成:
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Combo1的Style属性改为:2 - Dropdown List ,可以让Combo1只能选择,不能修改文本
Select Case Combo1.Index
改成:
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Combo1的Style属性改为:2 - Dropdown List ,可以让Combo1只能选择,不能修改文本
温馨提示:答案为网友推荐,仅供参考