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