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
&&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
0