Programación General > Visual Basic 6.0 e inferiores

 Enlazar Dos Combobox

(1/1)

SAL:
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

Soultaker:

--- Código: Text ---If ComboBox1.Text = "General" Then  ComboBox2.Clear  ComboBox2.AddItem ("Libros")  ComboBox2.AddItem ("Bibliografia")ElseIf ComboBox1.Text = "Literatura" Then  ComboBox2.Clear  ComboBox2.AddItem ("Hispana")  ComboBox2.AddItem ("Inglesa")End If 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:

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 ---Private Sub cmbMeses_Change() On Error Resume Next If cmbMeses.Text = "ENERO" Then    txtMes.Text = "1" End IfEnd Sub No me funciona, por que????

Widark:
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 ---txtMes.Text = cmbMeses.ItemData Espero te sirva. A porposito para que es el On error. Haaa, el itemdata lo debes llenar con el numero de mes.

Soultaker:

--- 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 ---Private Sub cmbMeses_Change() On Error Resume Next If cmbMeses.Text = "ENERO" Then    txtMes.Text = "1" End IfEnd Sub No me funciona, por que????
--- Fin de la cita ---
No es en el CHANGE, es en el CLICK

 :comp:

Navegación

[0] Índice de Mensajes