怎样确定表中有重复记录?并得出重复记录的行号?
请帮助,不要耻笑.

USE 表
X1=RECCOUNT()
INDEX ON 关键字段 TO TEMP.IDX UNIQUE
COUNT TO X2
SET INDEX TO
ERASE TEMP.IDX
IF X1=X2
*没有重复的记录
ELSE
*有重复的记录
ENDIF

或者
SET TALK OFF
CLOSE ALL
USE 表
RECALL
I=1
DO WHILE I<=RECCOUNT()
GO TOP
SKIP I-1
IF !DELETED()
X=关键字段
DELETE ALL FOR RECNO()>I AND 关键字段=X
ENDIF
I=I+1
ENDDO
LIST RECNO() FOR DELETED()

您的第二段代码。。。。汗
怎么不加个PACK
我的代码是这样的，帮我看看哪儿有问题：
Use CLK_CLMC
zs=Reccount()
For i=1 To zs
GOTO i
XM=ALLTRIM(材料编号)
b=RECNO()
Locate For ALLTRIM(材料编号)=XM WHILE RECNO()<>b
If Found()
Messagebox(材料编号+"重复",0+48,"提示")
Else
Endif
Endfor
Messagebox("执行完毕，没有重复编号",0+48,"提示")

我将是重复记录的第二次出现做上标记,第一次出现不管
你没有让我删除啊所以不用PACK