Hi all,

I used the following codes to get rid of duplicate records, sometimes it works fine and sometimes not.

use mytable
GO top
   
INDEX ON alltr(field1) TAG field1
*-- to erase duplicate field
DO WHILE !EOF()
	currfield=ALLTR(field1)
	SKIP
	IF EOF()
		EXIT
	ENDIF
	nextfield=ALLTR(field1)
	IF currfield=nextfield
		SKIP - 1
		DELE
		SKIP
	ENDIF
ENDDO

DELETE TAG field1

browse

Any suggestions or new type of coding would be appreciated.
Tia