Команда CONTINUE

Продолжает работу предыдущей команды LOCATE.

Синтаксис:

CONTINUE

Комментарии:
Команда CONTINUE используется после того, как команда LOCATE нашла нужную запись, и инициирует продолжение операции поиска. Команда CONTINUE перемещает указатель записи к следующей записи, для которой значение логического выражения, заданного в предыдущей команде LOCATE, есть "истина" (.T.).
Команду CONTINUE можно повторять до тех пор, пока она не дойдет до конца файла или пока не будет достигнута граница области действия, заданная командой LOCATE.
Если команда CONTINUE находит нужную запись, функция RECNO( ) возвращает номер этой записи, FOUND( ) значение "истина" (.T.), а EOF( ) значение "ложь" (.F.).
Если команде CONTINUE не удается найти запись, RECNO( ) возвращает количество записей в таблице, увеличенное на единицу, FOUND( ) возвращает "ложь" (.F.), а EOF( ) "истину" (.T.).

Пример:

* В следующем примере подсчитывается количество всех клиентов во
* Франции и на экран выдается полученное значение. Все записи ищутся с
* помощью одной команды LOCATE, а также команды CONTINUE в цикле.

CLOSE DATABASES
OPEN DATABASE (HOME( ) + 'samples\data\testdata')
USE customer  && Opens Customer table
SET TALK OFF
STORE 0 TO gnCount

LOCATE FOR ALLTRIM(UPPER(country)) = 'FRANCE'
DO WHILE FOUND( )
	gnCount = gnCount + 1
	CONTINUE
ENDDO
? 'Total customers from France: '+ LTRIM(STR(gnCount))

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