Добавляет в конец таблицы одну или несколько новых записей.
Синтаксис:
APPEND [BLANK] [IN nWorkArea | cTableAlias] [NOMENU]
Параметры:
BLANK
Добавляет в конец текущей таблицы одну пустую запись. Visual FoxPro не открывает окно редактирования при выдаче команды APPEND BLANK.
Вы можете редактировать новую запись с помощью команды BROWSE, CHANGE или EDIT.
IN nWorkArea
Задает рабочую область таблицы, к которой добавляется новая запись.
IN cTableAlias
Задает псевдоним таблицы, к которой добавляется новая запись.
Если аргументы nWorkArea и cTableAlias опущены, новая запись добавляется к той таблице, которая принадлежит выбранной в данный момент рабочей области. Если выдана команда APPEND, к таблице, заданной аргументом nWorkArea или cTableAlias, добавляется пустая запись и таблица автоматически выбирается. Если выдана команда APPEND BLANK, к таблице, заданной аргументом nWorkArea или cTableAlias, добавляется пустая запись, но таблица не выбирается.
NOMENU
Допустимо в Visual FoxPro и FoxPro для Windows, не поддерживается в FoxPro для Macintosh и FoxPro для MS-DOS.
В Visual FoxPro указывает, что из системной строки меню удаляется заголовок меню Table, чтобы не допустить внесения изменений в формат окна редактирования.
В FoxPro для Windows указывает, что из системной строки меню удаляется заголовок меню Browse, чтобы не допустить внесения изменений в формат окна редактирования.
Комментарии:
Если в момент выдачи команды APPEND или APPEND BLANK таблица в текущей рабочей области не открыта, появляется диалоговое окно Open, в котором можно выбрать таблицу для добавления записей.
Команда APPEND открывает окно редактирования, и вы можете ввести данные в новую запись (или записи). Когда вы добавляете новую запись, Visual FoxPro обновляет все открытые индексы.
Пример:
* В следующем примере команда APPEND BLANK используется для * создания таблицы, содержащей 10 записей со случайными значениями, а * затем на экран выводятся максимальное и минимальное значения в * таблице. 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