exit 命令示例

在下面的示例中,使用 do while 循环对价格超过 20 美元的库存产品的数目进行统计,直至文件尾 (eof),然后退出 do while 循环并显示总计值。

close databases
open database (home( ) + 'samples\data\testdata')
use products && 打开 prodocts 表
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