Tema: funciones combo box
Ver Mensaje Individual
  #4 (permalink)  
Antiguo 25/04/2007, 13:05
ReViJa
 
Fecha de Ingreso: abril-2007
Mensajes: 187
Antigüedad: 18 años
Puntos: 1
Re: funciones combo box
Te dejo un ejemplo sin BD para que tengas una referencia:

Código: 
Private Sub Form_Load()

Combo1.AddItem "uno"
Combo1.AddItem "dos"
Combo1.AddItem "tres"
Combo1.AddItem "cuatro"

End Sub

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
  Case 0
    Combo2.AddItem "uno"
    Combo2.AddItem "uno"
    Combo2.AddItem "uno"
    Combo2.AddItem "uno"
  Case 1
    Combo2.AddItem "dos"
    Combo2.AddItem "dos"
    Combo2.AddItem "dos"
    Combo2.AddItem "dos"
  Case 2
    Combo2.AddItem "tres"
    Combo2.AddItem "tres"
    Combo2.AddItem "tres"
    Combo2.AddItem "tres"
  Case 3
    Combo2.AddItem "cuatro"
    Combo2.AddItem "cuatro"
    Combo2.AddItem "cuatro"
    Combo2.AddItem "cuatro"
End Select
End Sub
Recuerda que la propiedad ListIndex empieza en cero.

Saludos.