Amigo utiliza el comando RECNO ( )..! ejemplo y definicion:
El registro actual es el registro en el cual se encuentra el puntero de registro.
RECNO( ) devuelve números negativos para registros anexados en un búfer de tablas.
RECNO( ) devuelve un valor que es el número de registros de la tabla más uno si el puntero de registro se encuentra mas allá del último registro de la misma. RECNO( ) devuelve 1 si el puntero de registro se encuentra antes del primer registro de la tabla. Si la tabla no tiene registros, EOF( ) siempre devolverá verdadero (.T.).
Ejecutar RECNO( ) sin los argumentos opcionales nWorkArea o cTableAlias devuelve el número de registro actual de la tabla situada en el área de trabajo seleccionada actualmente.
Si ha ejecutado SEEK sin éxito en una tabla indizada, puede especificar 0 para que nWorkArea utilice la lógica de “búsqueda cercana” para devolver el número del registro más similar. RECNO(0) devuelve 0 si no puede encontrarse ninguna coincidencia. Visual FoxPro generará un mensaje de error si ejecuta GO RECNO(0) y no se encuentra ninguna coincidencia.