Продолжает работу предыдущей команды 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))