>>>>>I have some dupe records that are causing me problems and I need to delete one of the dupes for each record in several tables. Is there a way to do that without deleting each individual record by hand? Is there a way to do it using the command line?
>>>>

>>>>select KeyID, <b>recno() as RecNum</b>, count(*) as CntDups from yourtable group by KeyID ;
>>>>       having CntDups > 1 ;
>>>>       into cursor curDupes
>>>>index on KeyID tag KeyID
>>>>select yourtable
>>>>set relation to KeyID into curDupes
>>>>delete for found('curDupes') and recno()=curDupes.RecNum && One of the dupes would be deleted

>>>
>>>Unfortunately, this code would delete all duplicate records not just one of them.
>>
>>Oops, what I was thinking :) Ok, how about new version (see changes in bold)
>
>Sorry, not going to work eaither because RECNO() doesn't work properly with GROUP BY clause.

Ok, last try before I'll actually run a test :)

select KeyID, count(*) as CntDups from yourtable group by KeyID ;
       having CntDups > 1 ;
       into cursor curDupes
if _tally>0 && There are dups in table
  index on KeyID tag KeyID
  scan
  if seek(KeyID,'YourTable',"KeyID") && should be always found
     * select YourTable
     delete in YourTable && One duplicated record is deleted now
   endif
   endscan
endif
use in curDupes