表1字段名如下：学号，姓名，入学时间
要删除学号重复的记录，但需要保留重复记录的第1条记录

CLEAR
SET safety OFF
DIMENSION xmzd(1,1)
SELECT temp1.姓名 DISTINCT FROM temp1 INTO ARRAY xmzd
SELECT temp1
BROWSE FONT "宋体",14
COPY TO temp2 STRUCTURE  
n=ALEN(xmzd)
FOR i=1 TO n
GO top
LOCATE FOR 姓名=ALLTRIM(xmzd(i))
IF FOUND()
SCATTER TO zds
INSERT INTO temp2 FROM ARRAY zds
ENDIF
ENDFOR
SELECT temp2
BROWSE FONT "宋体",14
CLOSE TABLES ALL

按学号创建一个唯一索引
SELECT 表1
INDEX ON 学号 TAG tag学号 UNIQUE
BROWSE

非常感谢，已解决