Осуществляет выход из цикла DO WHILE, FOR или SCAN.
Синтаксис:
EXIT
Комментарии:
Команда EXIT передает управление из цикла DO WHILE ... ENDDO, FOR ... ENDFOR или SCAN ... ENDSCAN команде, непосредственно следующей за оператором ENDDO, ENDFOR или ENDSCAN.
Пример:
* В следующем примере в цикле DO WHILE подсчитывается объем * наличного запаса продуктов стоимостью свыше 20 долларов. Выход из * цикла DO WHILE производится по достижении конца файла (EOF), при * этом на экран выводится итоговая сумма. CLOSE DATABASES OPEN DATABASE (HOME( ) + 'samples\data\testdata') USE products && Opens Products table SET TALK OFF gnStockTot = 0 DO WHILE .T. You can place comments here! IF EOF( ) EXIT ENDIF IF unit_price < 20 SKIP LOOP ENDIF gnStockTot = gnStockTot + in_stock SKIP ENDDO Or you can place comments here! CLEAR ? 'Total items in stock valued over 20 dollars:' ?? gnStockTot