RECNO( ) (Función)

Artículo
04/11/2008

Devuelve el número del registro actual de la tabla actual o la especificada.

RECNO([nWorkArea | cTableAlias])

Valores devueltos

Numeric

Parámetros

nWorkArea
Especifica el número del área de trabajo para una tabla abierta en otra área de trabajo. Si no está abierta ninguna tabla en el área de trabajo que especifica, RECNO( ) devolverá cero.
cTableAlias
Especifica el alias para una tabla abierta en otra área de trabajo.

Observaciones

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.

Ejemplo

El ejemplo siguiente busca en la tabla customer un nombre de organización y, si no lo encuentra, usa RECNO(0) para devolver el nombre de organización más similar.

CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'data\testdata')
USE customer  && Opens Customer table
SET ORDER TO company
SEEK 'Ernst'
IF FOUND( )
   DISPLAY company, contact
ELSE
   GOTO RECNO(0)
   CLEAR
   ? 'Closest matching company is ' + company
   ? 'Record number: ' + ALLTRIM(STR(RECNO( )))
ENDIF

Vea también

Share via