FoxPro/Visual FoxPro - buscar en un form Enriq,hect

   
Vista:

buscar en un form Enriq,hect

Publicado por buscar en un form Enriq,hect (8 intervenciones) el 14/09/2007 00:59:54
quiero q busq un apellido y yo colocar una tecla y se posicione lo mas cerca posible
&&primera prueba

go top
a=""
Select alumnos
a=thisform.pageframe1.page1.text11.value
set compatible off
SCAN FOR LIKEc('a*', alumnos.apellidoynombre)
thisform.pageframe1.page1.text1.value=alumnos.apellidoynombre

ENDSCAN
no me marca error pero no me muestra nada, la variable a es igual a un text y quiero q me los devuelva a otros text
&&segunda prueba
Select alumnos
a=thisform.pageframe1.page1.text11.value
set order to 1 && por apellido
seek a
*set near on
set exact off
*if found()

*thisform.pageframe1.page1.text1.value=alumnos.apellidoynombre
*thisform.pageframe1.page1.text2.value=alumnos.documento
*thisform.pageframe1.page1.text3.value=alumnos.fechanac
endif
lo mismo no me marca error pero no hace nada, yo quiero q me los muestre en otros text cuando encuetre un reg proximo.
desde ya gracias hector y enriq por molestarse
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:buscar en un form Enriq,hect

Publicado por enrique (1041 intervenciones) el 14/09/2007 14:21:27
pone al final THISFORM.REFRESH.

Otra cosa veo en el segundo ejemplo que tenes al principio de algunas lineas un * (asterisco), si es asi esas líneas no se ejecutaran porque el asterisco al principio de una línea se utiliza como comentario.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:buscar en un form Enriq,hect

Publicado por neo (1601 intervenciones) el 14/09/2007 15:12:45
Ya intentaste con "Locate For" ejemplo:

Select Alumnos
go top
Locate For alltrim(nombre)=alltrim(Thisform.txtnombre.value)
If Found() then
thisform.pageframe1.page1.text1.value=alumnos.apellidoynombre
thisform.pageframe1.page1.text2.value=alumnos.documento
thisform.pageframe1.page1.text3.value=alumnos.fechanac
else
Wait Window "No se Encontró este nombre" Timeout .8
endif

**Suerte►
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar