Autor Tema: Enlazar Dos Combobox (Leído 8454 veces)

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

Soultaker

Código: Text

If ComboBox1.Text = &#34;General&#34; Then
  ComboBox2.Clear
  ComboBox2.AddItem (&#34;Libros&#34;)
  ComboBox2.AddItem (&#34;Bibliografia&#34;)
ElseIf ComboBox1.Text = &#34;Literatura&#34; Then
  ComboBox2.Clear
  ComboBox2.AddItem (&#34;Hispana&#34;)
  ComboBox2.AddItem (&#34;Inglesa&#34;)
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

Investiga un poco mas

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 = &#34;ENERO&#34; Then
    txtMes.Text = &#34;1&#34;
 End If
End 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 If
End Sub

No me funciona, por que????

No es en el CHANGE, es en el CLICK

SoloCodigo

Autor Tema: Enlazar Dos Combobox (Leído 8454 veces)

SAL

Enlazar Dos Combobox

Soultaker

Re: Enlazar Dos Combobox

RadicalEd

Re: Enlazar Dos Combobox

Widark

Re: Enlazar Dos Combobox

Soultaker

Re: Enlazar Dos Combobox