E X IT 命 令

E X IT 命 令 - 图1从 DO WHILE FOR 或 SCAN 循环中退出

语 法

EXIT

说 明

E X IT 命 令 - 图2EXIT 命令把控制权从循环 DO WHILE ... ENDDO FOR ... ENDFOR 或 SCAN ...

E X IT 命 令 - 图3E X IT 命 令 - 图4ENDSCAN 中转交给紧接在 ENDDO ENDFOR 或 ENDSCAN 后的命令

示 例

E X IT 命 令 - 图5E X IT 命 令 - 图6E X IT 命 令 - 图7E X IT 命 令 - 图8下面的示例用 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

请 参 阅

E X IT 命 令 - 图9E X IT 命 令 - 图10E X IT 命 令 - 图11E X IT 命 令 - 图12E X IT 命 令 - 图13E X IT 命 令 - 图14E X IT 命 令 - 图15E X IT 命 令 - 图16DO WHILE ENDDO FOR E N D F O R SCAN ENDSCAN