求vfp一道题答案!

来源:百度知道 编辑:UC知道 时间:2024/05/12 15:18:03
下面这道题空白处补充完整~~
设有GZZU.DBF数据库,其中包括"姓名"字段并且以它为关键字进行了索引,索引文件为GZXM.IDX。因某种误操作,使该数据库中有一些紧挨着的重复记录。下面是一个能对该数据库文件进行检查,并把重复记录删除的命令文件,其中空白部分,请你填充完善。

SET TALK OFF
USE GZZU INDEX GZXM
XM=姓名
SKIP
DO WHILE ①_______
IF ②_______
DELETE
ELSE
③________
ENDI ?NDIF
④_________
ENDDO
⑤_________
USE
RETURN

完整程序如下:

SET TALK OFF

USE GZZU INDEX GZXM

XM=姓名

SKIP

DO WHILE .NOT. EOF() -----------------①

IF XM==姓名 ---------------------②

DELETE

ELSE

XM=姓名 ---------------------------③

ENDIF

SKIP ---------------------------④

ENDDO

PACK ----------------⑤

USE

RETURN