FAQ Eliminating duplicates in a table FAQ #8129 should address your problem in details.

>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