EXIT-Befehl

  • Artikel

Beendet eine DO WHILE-, FOR- oder SCAN-Schleife.

EXIT

Hinweise

EXIT übergibt die Steuerung einer DO WHILE … ENDDO, FOR … ENDFOR oder SCAN … ENDSCAN-Schleife an den Befehl, der auf ENDDO, ENDFOR oder ENDSCAN folgt.

Beispiel

Im folgenden Beispiel werden die Artikel aus der Lagerhaltung, die mit einem Preis von mehr als 20 Dollar ausgezeichnet sind, in der DO WHILE-Schleife zusammengefasst, bis das Dateiende (EOF) erreicht ist. Die DO WHILE-Schleife wird beendet und die Gesamtanzahl angezeigt.

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
? 'Total items in stock valued over 20 dollars:'
?? gnStockTot

Siehe auch

DO WHILE ... ENDDO | FOR EACH ... ENDFOR | FOR ... ENDFOR | SCAN ... ENDSCAN