FoxPro/Visual FoxPro - Locate - Continue

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

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

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.