E X IT 命 令
从 DO WHILE FOR 或 SCAN 循环中退出
语 法
EXIT
说 明
EXIT 命令把控制权从循环 DO WHILE ... ENDDO FOR ... ENDFOR 或 SCAN ...
ENDSCAN 中转交给紧接在 ENDDO ENDFOR 或 ENDSCAN 后的命令
示 例
下面的示例用 DO WHILE 循环 语句对库存中价格超过 20 美元的产品进行汇总 直到遇到文件尾 (EOF) 然后退出 DO WHILE 循环 语句 并显示总和
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata') USE products && 打开 Products 表
SET TALK OFF
gnStockTot = 0
DO WHILE .T. && 循环开始
IF EOF( )
EXIT
ENDIF
IF unit_price < 20 SKIP
LOOP ENDIF
gnStockTot = gnStockTot + in_stock SKIP
ENDDO && 循环结束
CLEAR
? 'Total items in stock valued over 20 dollars:'
?? gnStockTot
请 参 阅
DO WHILE ENDDO FOR E N D F O R SCAN ENDSCAN