exam6.prg

来自「专业数据库程序」· PRG 代码 · 共 13 行

clear
use sb.dbf
i=1
do while !eof() 
skip 1
i=i+1
if price>10000 
?no,name,price
endif
enddo
use