SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: SAL en Domingo 5 de Febrero de 2006, 19:55

Título: Enlazar Dos Combobox
Publicado por: SAL en Domingo 5 de Febrero de 2006, 19:55
Hola amigos estoy iniciandome en el mundo de Visual Basic 6.0 ,y actualmente estoy realizando un pequeño sistema de control de libros  pero no he continuado porque se me ha hecho dificil crear dos combos enlazados a objetos ADO que me hagan lo siguiente :

El primer combo tendra dos opciones General y Literatura y quiero que cuando seleccione General en el primer combo solamente, me aparescan
libros y bibliografias en el segundo combo y si selecciono Literatura en el mismo
me aparezca solamente Hispana e Inglesa en el segundo combo

Les puedo garantizar que he tratado por todos los medios de resolver este problema pero no le encuentro solución.

1ER COMBO     General,Literatura
2DO COMBO  Libros,Bibliografias,Hispana, Inglesa
Título: Re: Enlazar Dos Combobox
Publicado por: Soultaker en Lunes 6 de Febrero de 2006, 07:02
Código: Text
  1. If ComboBox1.Text = "General" Then
  2.   ComboBox2.Clear
  3.   ComboBox2.AddItem ("Libros")
  4.   ComboBox2.AddItem ("Bibliografia")
  5. ElseIf ComboBox1.Text = "Literatura" Then
  6.   ComboBox2.Clear
  7.   ComboBox2.AddItem ("Hispana")
  8.   ComboBox2.AddItem ("Inglesa")
  9. End If
  10.  
Este es una de las formas, hay bastantes formas de hacer lo que quieres, de verdad creo que no has tratado por todos los medios  :lightsabre:

Investiga un poco mas

 :comp:
Título: Re: Enlazar Dos Combobox
Publicado por: RadicalEd en Domingo 12 de Febrero de 2006, 17:08
Soultaker pregunta????
Se debe colocar en el evento Change del combo, por que es que tengo algo parecido a hacer, osea, tengo en un combo los meses del 1 al 12 y si le digo:

Código: Text
  1. Private Sub cmbMeses_Change()
  2.  On Error Resume Next
  3.  If cmbMeses.Text = "ENERO" Then
  4.     txtMes.Text = "1"
  5.  End If
  6. End Sub
  7.  
No me funciona, por que????
Título: Re: Enlazar Dos Combobox
Publicado por: Widark en Lunes 13 de Febrero de 2006, 15:52
Que tal viejo RadicalEd, como te trata la vida?

Yo te recomiendo poner ese codigo en el evento Click del combo. El numero del mes lo podrias manejar en el item data, y el codigo quedaria así:
Código: Text
  1. txtMes.Text = cmbMeses.ItemData
  2.  
Espero te sirva. A porposito para que es el On error. Haaa, el itemdata lo debes llenar con el numero de mes.
Título: Re: Enlazar Dos Combobox
Publicado por: Soultaker en Lunes 13 de Febrero de 2006, 23:13
Cita de: "RadicalEd"
Soultaker pregunta????
Se debe colocar en el evento Change del combo, por que es que tengo algo parecido a hacer, osea, tengo en un combo los meses del 1 al 12 y si le digo:

Código: Text
  1. Private Sub cmbMeses_Change()
  2.  On Error Resume Next
  3.  If cmbMeses.Text = "ENERO" Then
  4.     txtMes.Text = "1"
  5.  End If
  6. End Sub
  7.  
No me funciona, por que????
No es en el CHANGE, es en el CLICK

 :comp: