单击VBA窗体上的重置按钮会导致错误

Question

每次单击我窗体上的重置按钮。我收到以下错误信息：

Run-Time error '380': 
Could not set the Value property. Invalid property value. 

我试着调试代码和错误似乎是从这些行来：

cbo_prefRoom1.Value = "No preference" 
cbo_prefRoom2.Value = "No preference" 
cbo_prefRoom3.Value = "No preference" 

什么导致这个错误？我已经检查了表单，并且特别正确地引用了组合框。

这里是整个函数的代码：

Private Sub btn_Reset_Click() 

    ' Reset form 
    Dim ctl As msforms.Control 
    For Each ctl In Me.Controls 
     Select Case TypeName(ctl) 
      Case "TextBox" 
       ctl.Text = "" 
      Case "CheckBox", "OptionButton", "ToggleButton" 
       ctl.Value = False 
      Case "ComboBox", "ListBox" 
       ctl.ListIndex = -1 
     End Select 
    Next ctl 

    Me.cbo_deptCode = "CO - Computer Science" 

    ' Set default value for checkbox 
    Me.chk_week1.Value = True 
    Me.chk_week2.Value = True 
    Me.chk_week3.Value = True 
    Me.chk_week4.Value = True 
    Me.chk_week5.Value = True 
    Me.chk_week6.Value = True 
    Me.chk_week7.Value = True 
    Me.chk_week8.Value = True 
    Me.chk_week9.Value = True 
    Me.chk_week10.Value = True 
    Me.chk_week11.Value = True 

    ' Set default value for round 
    Me.cbo_rounds = "Priority" 

    ' Set default value for semester 
    Me.cbo_semester = "1" 

    ' Set default value for priority 
    priority_y.Value = 1 

    ' Set default value for lectureStyle 
    lecturestyle_trad = 1 

    ' Set default value from roomStructure 
    rs_Tiered = 1 

    ' Set default value for fac1,fac2,fac3 
    cbo_fac1.Value = "No preference" 
    cbo_fac2.Value = "No preference" 
    cbo_fac3.Value = "No preference" 

    ' Set default value for prefRoom1,prefRoom2,prefRoom3 
    cbo_prefRoom1.Value = "No preference" 
    cbo_prefRoom2.Value = "No preference" 
    cbo_prefRoom3.Value = "No preference" 

End Sub 

Answer 1

如果组合框的Style设置为fmListStyleDropDown和“无所谓”是不是在组合框中的项目，你会得到这个错误。