Sv Community El Salvador

Soporte y Tecnología => Programación => FOX => Mensaje iniciado por: Jarmandaros en septiembre 30, 2008, 12:50:29 pm

Título: [SOLUCIONADO] Llenar combobox con datos de una Base de Datos!
Publicado por: Jarmandaros en septiembre 30, 2008, 12:50:29 pm
Que tal Gente!!

Necesito de su ayuda pra solucionar un problema que tengo con un formulario en Visual Fox 6.0.

el problema es el siguiente:

tengo 2 combobox,

(http://img262.imageshack.us/img262/4527/01jl4.jpg)

el combo1 lo tengo relacionado con la base de datos "X"

cuando me carga el form se autollena el combo1 con los datos de la base "X", pero cuando selecciono un dato en el combo1 quisiera que se llenara el combo2 con los datos de la base "Y".

el codigo con el cual pense que me funcionaria es el siguiente:

Código: [Seleccionar]
if !empty(this.value)
thisform.combo2.enabled = .T.
j = "select nplanilla from genplanilla where !deleted() and estado = .T. and idproyecto = this.value   INTO CURSOR cemp"
ThisForm.combo2.RowSourceType = 0
ThisForm.Combo2.RowSource = j
ThisForm.combo2.RowSourceType = 3
ThisForm.combo2.Requery()

else
thisform.combo2.enabled = .F.
endif

pero no carga nada en el combo2 :sad:

talvez puedan echarme una mano, de antemano Gracias.  :friends:
Título: Re: Llenar combobox con datos de una Base de Datos!
Publicado por: Jarmandaros en octubre 01, 2008, 07:29:41 pm
Pues con la gran ayuda que recibi de la comunidad  :roll:

le encontre solucion a mi problema, asi quedo el codigo y me esta funcionando como yo queria.

Código: [Seleccionar]
if !empty(this.value)
thisform.combo2.enabled = .T.
j = "select nplanilla from genplanilla where idproyecto = this.value   INTO CURSOR cemp"
ThisForm.combo2.RowSourceType = 0
ThisForm.Combo2.RowSource = j
ThisForm.combo2.RowSourceType = 3
ThisForm.combo2.Requery()

else
thisform.combo2.enabled = .F.
endif

Gracias a todos  :friends:
Título: Re: Llenar combobox con datos de una Base de Datos!
Publicado por: rcguillen en octubre 02, 2008, 07:49:08 am
Lastima que llegamos tarde para ayudar..

pero bueno este codigo le servira a otros..

Gracias.!!