DO WHILE ... ENDDO 命令示例

在下面的示例中，DO WHILE 循环统计仓库中价格高于 20 美元的产品数量，遇到文件结束符 (EOF) 时，退出 DO WHILE 循环并显示总数。

CLOSE DATABASES
OPEN DATABASE (HOME( ) + 'samples\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