Como Puedo Enlazar Un Combobox a Un Textbox
Bueno, Necesito Un Super-favor... Estoy Haciendo Mi Primer sistema y soy como mis amigos lo dicen un "pato"... Y necesito ayuda en esto... Tengo un formulario en el cual necesito enlazar un combobox a un texbox a manera de que cuando yo seleccione cualquiera de estas opciones:
WITH this
.AddItem ("01")
.AddItem ("02")
.AddItem ("03")
.AddItem ("04")
.AddItem ("05")
.AddItem ("06")
.AddItem ("07")
.AddItem ("08")
endwith
Me Aparezca en el textbox estas:
DO CASE
CASE thisform.TIPCAR.Text = "01"
thisform.DESCRIPCAR.Text = "Busito Hiace"
CASE thisform.TIPCAR.Text = "02"
thisform.DESCRIPCAR.Text = "Busito Urvan"
CASE thisform.TIPCAR.Text = "03"
thisform.DESCRIPCAR.Text = "Busito General"
CASE thisform.TIPCAR.Text = "04"
thisform.DESCRIPCAR.Text = "Taxi Colectivo"
CASE thisform.TIPCAR.Text = "05"
thisform.DESCRIPCAR.Text = "Taxi General"
CASE thisform.TIPCAR.Text = "06"
thisform.DESCRIPCAR.Text = "Turismo"
CASE thisform.TIPCAR.Text = "07"
thisform.DESCRIPCAR.Text = "Pick-Up"
CASE thisform.TIPCAR.Text = "08"
thisform.DESCRIPCAR.Text = "Camión"
Endcase
Sé que no soy bueno para expresarme por esa razón coloque el código que estoy usando el primero en el evento "Init" Del Combobox, y el Segundo En El "SetFocus" Del Texbox
Muchas gracias Por escucharme
Espero su Ayuda
Gracias...!
WITH this
.AddItem ("01")
.AddItem ("02")
.AddItem ("03")
.AddItem ("04")
.AddItem ("05")
.AddItem ("06")
.AddItem ("07")
.AddItem ("08")
endwith
Me Aparezca en el textbox estas:
DO CASE
CASE thisform.TIPCAR.Text = "01"
thisform.DESCRIPCAR.Text = "Busito Hiace"
CASE thisform.TIPCAR.Text = "02"
thisform.DESCRIPCAR.Text = "Busito Urvan"
CASE thisform.TIPCAR.Text = "03"
thisform.DESCRIPCAR.Text = "Busito General"
CASE thisform.TIPCAR.Text = "04"
thisform.DESCRIPCAR.Text = "Taxi Colectivo"
CASE thisform.TIPCAR.Text = "05"
thisform.DESCRIPCAR.Text = "Taxi General"
CASE thisform.TIPCAR.Text = "06"
thisform.DESCRIPCAR.Text = "Turismo"
CASE thisform.TIPCAR.Text = "07"
thisform.DESCRIPCAR.Text = "Pick-Up"
CASE thisform.TIPCAR.Text = "08"
thisform.DESCRIPCAR.Text = "Camión"
Endcase
Sé que no soy bueno para expresarme por esa razón coloque el código que estoy usando el primero en el evento "Init" Del Combobox, y el Segundo En El "SetFocus" Del Texbox
Muchas gracias Por escucharme
Espero su Ayuda
Gracias...!
1 Respuesta
Respuesta de yonjames
1