FoxPro/Visual FoxPro - combo y grid

hola que tal me recuerdan tengo una gran duda anteriormente y habia puesto el nombre de mis tablas en el combo y el codigo es el isiguiente en el event clic de el combo

if(thisform.Combo1.value="tubosgalv")then
thisform.Grid1.recordsource="tubosgalv"
else
if (thisform.Combo1.value="codosgalv")then
thisform.Grid1.recordsource="codosgalv"
else
if(thisform.Combo1.value="teeyyeegalv")then
thisform.Grid1.recordsource="teeyyeegalv"
endif
endif
mis propiedades del grid de recordsource es TABLA para que las jalara de las tablas

y ya me jalaba mis tablas y me las mostraba en el grid el contenido
pero al crear mis de mas formularios con su codigo de igual manera solo cambia el nombre de la tabla al ejecutarlo el grid no lo detecta, es decir el grid solo aparece en blanco y no se ve ni la cuadricula y no jala nada y ahora mi formulario anterior que ya jalaba ya no hace nada ya no jala absolutamente nada eso a que se debe como le puedo hacer por que ya me canse de buscarle porque y no encuentro y eso me mantiene sin poder avanzar a mi ptograma

espero me puedan ayudar se los agradeceria demasiado

Hola Amiga

Para trabajar con GRID solo existen dos propiedades con las cuales puedes referencias datos RECORDSOURCETYPE y el RECORDSOURCE

En tu caso estas propiedades deberian estas asi

THISFORM.GRID1.RECORRSOURCETYPE=1
&&& Tipo de datos TABLA o ALIAS
THISFORM.GRID1.RECORRSOURCE="nombre_tabla"
&&& Tipo de datos TABLA o ALIAS


*************************************************************************
Te recomuendo que cheque la primera propiedad THISFORM.GRID1.RECORRSOURCETYPE que se encuentre en 1 (UNO)
ya que la segunda se encuentra via codigo en tu combo asi que no creo qu etengas problemas por ese lado

*****************************************************************
pordrias provar este codigo tambien en tu combo es muy paresido solo que tienes unos retoques :

thisform.Grid1.recordsourcetype=1 && solo porciaca
thisform.Grid1.recordsource=""

do case
case thisform.Combo1.value="tubosgalv"
thisform.Grid1.recordsource="tubosgalv"
case thisform.Combo1.value="codosgalv"
thisform.Grid1.recordsource="codosgalv"
case thisform.Combo1.value="teeyyeegalv"
thisform.Grid1.recordsource="teeyyeegalv"
endcase
thisform.Grid1.refresh
***** Pruebalo y me comentas como te fue ok y reerda que para casos donde tengas mas de 2 opciones usa el el comando DO CASE es mejor

if(thisform.Combo1.value="tubosgalv")then
thisform.Grid1.recordsource="tubosgalv"
thisform.grid1.refresh()
else
if (thisform.Combo1.value="codosgalv")then
thisform.Grid1.recordsource="codosgalv"
thisform.grid1.refresh()
else
if(thisform.Combo1.value="teeyyeegalv")then
thisform.Grid1.recordsource="teeyyeegalv"
thisform.grid1.refresh()
endif
endif

creo que ese es tu problema pero el codigo del compañero Carlos tambien es bueno por el uso del DO CASE


Suerte

Hola Amigo ERNESTO

Tenga usted un buen dia y mucho mejor que el de ayer jajjaj... Gracias por el ci¿umplido ....

igualmente compañero si eso espero qque este mejor que ayer ...

Suerte