dependent combo boxes

[henslecd]

How do you create dependent combo boxes?

I.e. Choose car from first dropdown. Then in second dropdown it gives you a list of cars. Once you choose a car, the third dropdown gives you options that only that car has etc etc.

 

[herb8]

This should give you an idea just drop this onto a new form dont change the name from form1 and put 3 comboboxes on the form. Its really basic but should show you how to do it.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ComboBox1.Items.Add("Toyota&quot
ComboBox1.Items.Add("Ford&quot
ComboBox1.Items.Add("Nissan&quot

End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

Select Case ComboBox1.Text
Case Is = "Toyota"
ComboBox2.Items.Add("Tundra&quot
ComboBox2.Items.Add("Corolla&quot
ComboBox2.Items.Add("Camry&quot
Case Is = "Ford"
ComboBox2.Items.Add("F150&quot
ComboBox2.Items.Add("Mustang&quot
ComboBox2.Items.Add("MustangGT&quot
Case Is = "Nissan"
ComboBox2.Items.Add("PathFinder&quot
ComboBox2.Items.Add("B2200&quot
ComboBox2.Items.Add("Other Nissan Car&quot
End Select

End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

Select Case ComboBox3.Text
Case Is = "Tundra"
ComboBox3.Items.Add("PowerLocks&quot
ComboBox3.Items.Add("Sun Roof&quot
ComboBox3.Items.Add("50 Cal Machine Gun&quot
Case Is = "Corrola"
ComboBox3.Items.Add("Wheels w/ spikes&quot
ComboBox3.Items.Add("Oil Slicks&quot
ComboBox3.Items.Add("20000 Year Warranty&quot
Case Is = "Camry"
ComboBox3.Items.Add("Alarm&quot
ComboBox3.Items.Add("Gold Trim Package&quot
ComboBox3.Items.Add("A/C&quot
Case Is = "F150"
ComboBox3.Items.Add("Tires&quot
ComboBox3.Items.Add("A Motor&quot
ComboBox3.Items.Add("Windows&quot
Case Is = "Mustang"
ComboBox3.Items.Add("Doors&quot
ComboBox3.Items.Add("Roll Cage.. but why???&quot
ComboBox3.Items.Add("Muddin Tires&quot
Case Is = "MustangGT"
ComboBox3.Items.Add("Low Pros&quot
ComboBox3.Items.Add("Spokes&quot
ComboBox3.Items.Add("Ubah System&quot
Case Is = "PathFinder"
ComboBox3.Items.Add("M&M's&quot
ComboBox3.Items.Add("Floor Mats&quot
ComboBox3.Items.Add("A Rear view mirror&quot
Case Is = "B2200"
ComboBox3.Items.Add("Seats&quot
ComboBox3.Items.Add("Air Bags&quot
ComboBox3.Items.Add("Side Air Bags&quot
Case Is = "Other Nissan Car"
ComboBox3.Items.Add("BackSeat Airbags&quot
ComboBox3.Items.Add("Roof Airbags&quot
ComboBox3.Items.Add("Airbags for the Airbags&quot
End Select

End Sub

Hope it helps, Matt

 

[herb8]

Sorry one thing that last select case statement ComboBox2_SelectedIndexChanged the Select Case Combobox3 should be changed to ComboBox2.

Sorry Matt

 

[henslecd]

I actually want the values to be pulled from my DB. I have thousands of values so I can't write them in statically. Do you know how to do that?

 

[herb8]

Well in that case you would first need to return a recordset of your first level choices. Then in combobox1.selectedindex change you would return another recordset based on the parameter you choose in combobox1.text. Then you would populate combobox2 like

Combobox1.selectedindexchanged

GetMyNewRecordSet2ndLayer passing combobox1.text as Parameter

Dim x as int16
For x = 0 to myNewRecordset.tables(0).rows.count - 1

combobox2.items.add(mynewrecordset.tables(0).rows(x).items("TheValueField&quot

Next

And then the this will basically do the same thing for the next combobox, just passing combobox2.text as your parameter, and then loading the items into the combobox3.

-Matt

 

[henslecd]

OK I am going to try that. Thanks for the help!