APPEND (Comando)

Agrega uno o más registros nuevos al final de una tabla.

APPEND [BLANK] [IN nWorkArea | cTableAlias] [NOMENU]

Parámetros

• BLANK
  Agrega un registro en blanco al final de la tabla activa. Visual FoxPro no abre ninguna ventana de edición cuando usted ejecuta APPEND BLANK.

  Es posible modificar los nuevos registros con BROWSE, CHANGE o EDIT.

• IN nWorkArea
  Especifica el área de trabajo de la tabla a la que se agrega el nuevo registro.

• IN cTableAlias
  Especifica el alias de la tabla a la que se agrega el nuevo registro.

  Si omite nWorkArea y cTableAlias, se agregará un nuevo registro a la tabla en el área de trabajo seleccionada actualmente. Si ejecuta APPEND, se agregará un registro en blanco a la tabla especificada mediante nWorkArea o cTableAlias, y la tabla se seleccionará automáticamente. Si ejecuta APPEND BLANK, se agregará un registro en blanco a la tabla especificada con nWorkArea o cTableAlias, y la tabla no se seleccionará.

• NOMENU
  Especifica que se eliminará el título de menú Tabla de la barra de menús del sistema, lo que impide efectuar cambios en el formato de la ventana de edición.

Observaciones

El cuadro de diálogo Abrir aparece cuando ejecuta APPEND o APPEND BLANK y no hay una tabla abierta en el área de trabajo activa. Elija una tabla para agregar registros.

APPEND abre una ventana de edición para que pueda escribir datos en uno o varios registros nuevos. Cuando agregue un nuevo registro, Visual FoxPro actualizará cualquier índice que haya abierto.

Ejemplo

El siguiente ejemplo utiliza APPEND BLANK para crear una tabla con 10 registros que contienen valores aleatorios y, a continuación, muestra los valores máximo y mínimo de la tabla.

CLOSE DATABASES
CREATE TABLE Random (cValue N(3))
FOR nItem = 1 TO 10  && Append 10 records
   APPEND BLANK
   REPLACE cValue WITH 1 + 100 * RAND( )  && Insert random values
ENDFOR

CLEAR
LIST  && Display the values
gnMaximum = 1  && Initialize minimum value
gnMinimum = 100  && Initialize maximum value
SCAN 
   gnMinimum = MIN(gnMinimum, cValue)
   gnMaximum = MAX(gnMaximum, cValue)
ENDSCAN
? 'The minimum value is: ', gnMinimum  && Display minimum value
? 'The maximum value is: ', gnMaximum  && Display maximum value

Vea también

APPEND FROM ARRAY | BROWSE | CHANGE | EDIT | INSERT - SQL | REPLACE