Adding Items to Combo box from another combo box

npatil

Registered User.
Local time
Today, 08:11
Joined
Mar 4, 2011
Messages
39
I have the foll click() for a combo box

Private Sub cmbFilter_Option_1_Click()

Dim widthmenu, listoptions

listoptions = Array("tirewidth", "aspectratio", "rimradius", "LoadIndex", "SpeedSymbol")

list1 = listoptions(0)
list2 = listoptions(1)
List3 = listoptions(2)
list4 = listoptions(3)
list5 = listoptions(4)


widthmenu = Array("115", "125", "145",....)

widthmenu1 = widthmenu(0)
widthmenu2 = widthmenu(1)
...

If Me.cmbFilter_Option_1 = list1 Then

If Me.cmbFilterSizeValues <> """ Then Me.cmbFilterSizeValues = """ Then
End If


cmbFilterSizeValues.AddItem (widthmenu1)
cmbFilterSizeValues.AddItem (widthmenu2)
cmbFilterSizeValues.AddItem (widthmenu3)
.....

End If

End Sub

Problem is that everytime I click the cmbFilter_Option_1, the other cmbFilterSizeValues box gets populated, but does not display the values on different rows. It shows the values as 115;125;145;155.. and so on.

How to fix this?

thanks!
 

Users who are viewing this thread

Back
Top Bottom