當我嘗試填充組合框時，它不填充

Question

早些時候，我能夠填充組合框取決於另一個組合框選擇，然後我繼續編寫代碼，然後我再回來測試它再次，它不再填充該列表，它與另一個列表一起使用，但其中一個不包含。所以它填充飲料，但不是主要的。我不確定發生了什麼事情，這一切對我來說似乎都沒有問題。

Public Shared cmbCatDrinks As String = "Drinks" 
Public Shared cmbCatMain As String = "Main" 
Public Shared cmbCatBlank As String = "" 
Public Shared cmbItemBlank As String = "" 

Private Sub frmRestaurantOrd_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    cmbCat.Items.Add(cmbCatBlank) 
    cmbCat.Items.Add(cmbCatDrinks) 
    cmbCat.Items.Add(cmbCatMain) 
End Sub 

Private Sub cmbCat_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbCat.SelectedIndexChanged 
    If cmbCat.SelectedItem = "Drinks" Then 
     cmbItem.Items.Add("Water") 
     cmbItem.Items.Add("Orange Juice") 
     cmbItem.Items.Add("Coca Cola") 
     cmbItem.Items.Add("Beer") 
     cmbSize.Items.Clear() 
    ElseIf cmbCat.SelectedItem = "Main" Then 
     cmbItem.Items.Add("Cheese and Tomato") 
     cmbItem.Items.Add("Ham and Pineapple") 
     cmbItem.Items.Add("Vegetarian") 
     cmbItem.Items.Add("Meat Feast") 
     cmbItem.Items.Add("Seafood") 
     cmbSize.Items.Add("Small") 
     cmbSize.Items.Add("Medium") 
     cmbSize.Items.Add("Large") 
     cmbItem.Items.Clear() 
    Else cmbCat.SelectedItem = cmbCatBlank 
     cmbItem.Items.Clear() 
    End If 
End Sub 

Answer 1

您正在清理時，選擇「主」剛纔添加到cmbItem的項目。

ElseIf cmbCat.SelectedItem = "Main" Then 
    cmbItem.Items.Add("Cheese and Tomato") 
    cmbItem.Items.Add("Ham and Pineapple") 
    cmbItem.Items.Add("Vegetarian") 
    cmbItem.Items.Add("Meat Feast") 
    cmbItem.Items.Add("Seafood") 
    cmbSize.Items.Add("Small") 
    cmbSize.Items.Add("Medium") 
    cmbSize.Items.Add("Large") 
    cmbItem.Items.Clear() ' <-- this is clearing all the items you just added.