funciones combo box

[elbano66]

OK siva

esto esta en form
Private Sub Form_Load()
Combo6.AddItem "Información general"
Combo6.AddItem "Requerimiento pospago"
Combo7.AddItem "Planes y tarifa pospago"
Combo7.AddItem "Productos y servicios BASICO pospago"
Combo7.AddItem "Productos y servicios de LLAMADAS pospago"
Combo7.AddItem "Productos y servicios de SMS pospago"
Combo7.AddItem "Productos y servicios de DATOS pospago"
Combo7.AddItem "Promociones pospago"
Combo7.AddItem "Métodos de pago pospago"
Combo7.AddItem "Equipos celulares pospago"
Combo7.AddItem "Call center pospago"
Combo7.AddItem "Registro de fallas pospago"
Combo7.AddItem "Historico de fallas operativas pospago"
Combo7.AddItem "Falla masiva pospago"
Combo7.AddItem "Lealtad y recuperación"
Combo7.AddItem "Autogestión IVR pospago"
Combo7.AddItem "Detalle de saldo pospago"

Combo7.AddItem "Bloqueo de linea"


esto esta en combo6

Private Sub Combo6_Click()
Select Case Combo6.ListIndex
Case 0
vaciar
Combo7.AddItem "Planes y tarifa pospago"
Combo7.AddItem "Productos y servicios BASICO pospago"
Combo7.AddItem "Productos y servicios de LLAMADAS pospago"
Combo7.AddItem "Productos y servicios de SMS pospago"
Combo7.AddItem "Productos y servicios de DATOS pospago"
Combo7.AddItem "Promociones pospago"
Combo7.AddItem "Métodos de pago pospago"
Combo7.AddItem "Equipos celulares pospago"
Combo7.AddItem "Call center pospago"
Combo7.AddItem "Registro de fallas pospago"
Combo7.AddItem "Falla masiva pospago"
Combo7.AddItem "Historico de fallas operativas pospago"
Combo7.AddItem "Lealtad y recuperación"
Combo7.AddItem "Autogestión IVR pospago"
Combo7.AddItem "Detalle de saldo pospago"


Case 1
vaciar
Combo7.AddItem "Bloqueo de linea"

esto esta en combo7

Private Sub Combo7_click()
Select Case Combo7.ListIndex
Case 0
vaciar1
Combo8.AddItem "Clasico"
Combo8.AddItem "Emprendedor"
Combo8.AddItem "VIP"
Combo8.AddItem "Premier"
Combo8.AddItem "Pegate durisimo 4000"
Combo8.AddItem "Durisimo con todos"
Combo8.AddItem "Suspensión voluntaria"
Combo8.AddItem "Paquetes promocionales"
Combo8.AddItem "Planes corporativos"
Combo8.AddItem "Planes emple"
Combo8.AddItem "Planes no vigentes"
Case 1
vaciar1
Combo8.AddItem "Entre panas"
Combo8.AddItem "A tono contigo"
Combo8.AddItem "Movilmensaje"
Combo8.AddItem "Voz confidencial"
Combo8.AddItem "Conectados"
Combo8.AddItem "¿Dondé estás?"
Combo8.AddItem "Mi destino movil"
Combo8.AddItem "AGL wap"
Combo8.AddItem "Pulsa y habla"
Combo8.AddItem "Quien me llamó"
Case 2
vaciar1
Combo8.AddItem "0-500"
Combo8.AddItem "0-800"
Combo8.AddItem "0-900"
Combo8.AddItem "Restricciones internacionales"
Combo8.AddItem "*Unico"
Combo8.AddItem "Atención en lines"
Combo8.AddItem "Factura legal"
Combo8.AddItem "Llamada en conferencia"
Combo8.AddItem "Transferencia de llamadas"
Combo8.AddItem "Voz confidencial"
Combo8.AddItem "Numeros asteriscos"
Combo8.AddItem "Movilasist reposición"
Combo8.AddItem "Roaming global"
Combo8.AddItem "Mi destino movil"
Combo8.AddItem "Voz confidencial"

Case 3
vaciar1
Combo8.AddItem "Chat"
Combo8.AddItem "Servicio de control"
Combo8.AddItem "Menu de información"
Combo8.AddItem "Messenger móvil"
Combo8.AddItem "Paquete ilimitado"
Combo8.AddItem "Paquete por sms"
Combo8.AddItem "Paquete 150"
Combo8.AddItem "Repiques y figuras"
Combo8.AddItem "SMS internacional"

Case 4
vaciar1
Combo8.AddItem "Aba inalambrico"
Combo8.AddItem "Aba movil"
Combo8.AddItem "EVDO"

Case 5
vaciar1
Combo8.AddItem "Vigentes"
Combo8.AddItem "No vigentes"


Case 6
vaciar1
Combo8.AddItem "*UNICO"
Combo8.AddItem "Banesco on line"
Combo8.AddItem "Banco de venezuela"

Case 7
vaciar1
Combo8.AddItem "Equipos en promoción"
Combo8.AddItem "Costos de equipos en promoción"

Case 8
vaciar1
Combo8.AddItem "Agentes autorizados o Premium"
Combo8.AddItem "Atención en linea"
Combo8.AddItem "Kiosco virtual"

Case 9
vaciar1
Combo8.AddItem "Fallas con llamadas"
Combo8.AddItem "Fallas con SMS"
Combo8.AddItem "Falla con servicio especial"

Case 10
vaciar1
Combo8.AddItem "Activa speech de falla"
Combo8.AddItem "Escala caso"
Case 11
vaciar1
Combo8.AddItem "Consulta de caso"
Combo8.AddItem "Escalamiento de caso"

Case 12
vaciar1
Combo8.AddItem "Club cantv"
Combo8.AddItem "Plan renovación de equipos"
Combo8.AddItem "Recuperaciones (Isla de retención)"

Case 13
vaciar1
Combo8.AddItem "Consulta de saldo"

Case 14
vaciar1
Combo8.AddItem "Consulta de saldo"


Select Case Combo7.ListIndex
Case 0

vaciar2
Combo8.AddItem "suspende linea"
End Select

End Select



esto es para vaciar lo que distes

Private Sub vaciar1()
cont = Combo8.ListCount - 1
For x = cont To 0 Step -1
Combo8.RemoveItem x

Next
End Sub

esto es para vaciar lo que distes

Private Sub vaciar2()
cont = Combo8.ListCount - 1
For x = cont To 0 Step -1
Combo7.RemoveItem x

Next
End Sub



cuando lo corro y agarro la ruta "informacion general" y escojo alguno de los atributos funciona perfecto me muestra en combo7 fino y en comobo8 tambien pero cuando agarro la ruta "requerimiento pospago" toma los atrubutos muy bien pero cuando escojo bloqueo de linea no me muetra suspende linea me muetra es los atributos de informacion general ahora si creo que entendistes.