FoxPro/Visual FoxPro - Locate - Continue

 
Vista:

Locate - Continue

Publicado por brigi (172 intervenciones) el 21/03/2007 16:08:54
Hola a todos,

Tengo una función en mi aplicación que me busca un texto en un determinado campo con la función LOCATE y los siguientes que aparecen con CONTINUE.

Pero mi pregunta es ¿Puedo como puedo localizar el anterior?, es decir, buscar hacia atrás.

Muchas Gracias
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
sin imagen de perfil

RE:Locate - Continue

Publicado por Ernesto Hernandez (4626 intervenciones) el 21/03/2007 17:30:18
el LOCATE realiza busquedas secuenciales por lo que no es posible buscar hacia atras .

Por que no utlizas un DO WHILE es mas facil de manejar

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

RE:Locate - Continue

Publicado por DOUGLAS (297 intervenciones) el 24/03/2007 17:20:08
bien amigo nada de lo anterior.

hace lo siguientes..

ordena la tabla por el campo que deseas hacer las busquedas es mas ficil

use tutabla
index on nombre tag nombre
index on apellido tag apellido

Esto solo una ves se hace y en modo excl.
si tienes el sistema en red se te cae.

selec tutabla
set order to nombre o
set order to apellido

luego inseta un combo y en el Evento keypress
coloca este codigo funciona hacia atras adelante a como tu quieras.
es es la ventaja del seek.

Thisform.LockScreen = .T.
Set Exact Off
Select tutabla
If Seek(Alltrim(This.DisplayValue)+Upper(Chr(nKeyCode)))
**si lo encuenta
Else
***si no lo encontro enviar mensaje.
Endif
Thisform.LockScreen = .F.

*******PERO CLARO SI LO QUE NECESITAS ES BUSCAR CONTINUAMENTE EN UNA TABLA PARA REPORTES ESE ES OTRO ASUNTO.

sele tutabla
set order to por el orden que seas buscar

sele tutabla
set order to nombre
go top
scan
xcod = tutabla.codigo

selec tabla2
SEEK XCOD
IF FOUND()
si lo encuentra has tu codigo aqui. si es replace o no se que cosa
ENDIF

sele tutabla
endscan


Espero le Sirva

Douglas Sánchez
Managua, Nicaragua.
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