例7-8.prg

几个VFP程序实例

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