To tell you the truth I can't be bothered refining the soln. when the asker can't be bothered either, or acknowledging the help, and just focusing on the person who he eventually chooses.

>Yes, but even you have one record it will found that record? :)
>
>>No, this just seeks the first one and deletes that. The flag gets you out of loop. And he doesn't want del all dupes -just 1 out of 3 (but it assumes there are always 3, as I said)
>>
>>>Don't you delete all records with that? He needed two records each key.
>>>
>>>>Metin
>>>>
>>>>Wouldn't it be best to set the order to the index Tariq had?
>>>>
>>>>Then (assuming always 3 of each or just 1), something like:
>>>>
>>>>

>>>>SCAN
>>>>  llFound       = .F.
>>>>  lnRecNo       = RECNO()
>>>>  xdate         = date
>>>>  xvoucher      = voucher
>>>>  xtype         = type
>>>>  xSeekKey      = DTOC( date) + str( voucher) + Type  && NOTE not ALLTRIM( Type) when used in key.
>>>>  Do while llFound
>>>>    If INDEXSEEK( xSeekKey, .T., "ThisTable", "TariqsIndex")
>>>>        Delete
>>>>        llFound = .T.
>>>>        Goto lnRecNo                                  && Don't even think this necessary
>>>>    Endif
>>>>  EndDO
>>>>EndSCAN

- Whoever said that women are the weaker sex never tried to wrest the bedclothes off one in the middle of the night
- Worry is the interest you pay, in advance, for a loan that you may never need to take out.