EOF( ) (Función)
Determina si el puntero de registro está situado o no más allá del último registro de la tabla actual o especificada.
EOF([nWorkArea | cTableAlias])
Valores devueltos
Logical
Parámetros
nWorkArea
Especifica el número de área de trabajo de la tabla.cTableAlias
Especifica el alias de la tabla.EOF( ) devuelve falso (.F.) si no está abierta una tabla en un área de trabajo que especifique.
Si no especifica un alias de área de trabajo, se probará la condición de final de archivo en la tabla abierta en el área de trabajo seleccionada.
Observaciones
EOF( ) devuelve verdadero (.T.) si el puntero de registro alcanza el final del archivo de tabla (EOF). El final de la tabla se alcanza cuando el puntero del registro transfiere el último registro de la tabla. Por ejemplo, cuando se ejecuta FIND, LOCATE o SEEK sin éxito, Visual FoxPro mueve el puntero de registro hasta después del último registro, y EOF( ) devuelve verdadero (.T.). EOF( ) devuelve falso (.F.) si el puntero del registro no está al final de la tabla.
Ejemplo
El ejemplo siguiente abre la tabla customer y enumera el nombre de la empresa página a página hasta llegar al final del archivo o hasta que elija Cancelar.
CLOSE DATABASES
CLEAR
OPEN DATABASE (HOME() + "samples\data\testdata")
USE customer
GO TOP
local recCtr, btnValue
recCtr = 0
btnValue = 1
DO WHILE btnValue = 1 AND NOT EOF()
? "Company : " + company
recCtr = recCtr + 1
if (recCtr % 20) = 0 then
btnValue =MESSAGEBOX ("Click OK to continue, ;
Cancel to quit.",33)
clear
endif
Skip 1 && Move down one record
ENDDO
=MESSAGEBOX("Listing complete.",48)