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
Do while llFound
If INDEXSEEK( xSeekKey, .T., "ThisTable", "TariqsIndex")
Delete
llFound = .T.
Goto lnRecNo
Endif
EndDO
EndSCAN
>Okey than,
>
>
>set dele on
>set orde to 0
>scan
> xdate=date
> xvoucher=voucher
> xtype=type
> xrec=recno()
> loca for date=xdate and voucher=xvoucher and type=xtype and recno()#xrec
> if foun()
> conti
> if foun()
> dele
> endif
> endif
> go xrec
>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.