コンボボックスに値を設定しようとしたときに、それが設定されません

Question

以前コンボボックスを選択したことに応じてコンボボックスに値を設定できました。次にコードを書きます。それはもはやそのリストを作成しません、それは別のリストで行いますが、それらのうちの1つはしません。だから、それは飲み物のものですが、メインのものではありません。私はこれが起こるために何が起こっているのか分からない、それはすべて私には大丈夫だと思われる。

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.