Выход из DO WHILE, FOR, SCAN или TRY…CATCH…FINALLY структур.

EXIT

Замечания

Команда EXIT передает контроль из структуры команде, немедленно следующей за структурой.

Пример

В следующем примере количество продуктов по цене свыше 20 долларов представлено в цикле DO WHILE, пока не будет обнаружен конец файла (EOF). Выход из цикла DO WHILE показан.
  Copy Code
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
USE products  && Opens Products table
SET TALK OFF
gnStockTot = 0

DO WHILE .T.     && Beginning of loop
   IF EOF( )
      EXIT
   ENDIF
   IF unit_price < 20
      SKIP
      LOOP
   ENDIF
   gnStockTot = gnStockTot + in_stock
   SKIP
ENDDO  && End of loop

CLEAR
? 'Всего по цене свыше 20 долларов:'
?? gnStockTot

Смотрите также