21/11/2009, 04:04
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 18 años, 9 meses Puntos: 29 | |
| Respuesta: Hola, aqui tengo el sig. codigo.
Creo que el fallo está aqui:
If (lIndex) Then
Combo2.List(Combo2.ListIndex) = Combo2.List(Combo1.ListIndex) & arreglocombo2(lIndex)
End If
El primer valor del combo está en el index 0, así que con tu comparación no lo cargas.
Pon en todo caso:
If lIndex >-1 Then
Combo2.List(Combo2.ListIndex) = Combo2.List(Combo1.ListIndex) & arreglocombo2(lIndex)
End If
Saludos
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza! |