Команда APPEND

Добавляет в конец таблицы одну или несколько новых записей.

Синтаксис:

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

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем - 19.11.2002