例7-8.prg

来自「几个VFP程序实例」· PRG 代码 · 共 10 行

CLEAR
OPEN DATABASE xsxk
USE 学生 IN 0
SELECT 学生
LOCATE FOR YEAR(出生日期)=1982
DO WHILE .NOT.EOF()
   DISPLAY
   CONTINUE
ENDDO
CLOSE DATABASE