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.