Be careful there is an error here:
>Here is a routine which will reorg all tables in the DBC. It has an added benefit in packing the table / Memos.
>
>

>local lerror, laFiles(1), lcPkey, i, lcError
>close all
>close databases all
>open database Yourdatabase
>lcError = on('error')
>on error lerror = .t.
>for i = 1 to adbobjects(laFiles,"TABLE")
>	use (laFiles(i)) exclusive alias lfile
>	if not lerror and isexclusive('lFile')
>		lcPkey = dbgetprop(laFiles(i),"TABLE","PRIMARYKEY")
>		if not empty(lcPkey)
>			set order to (lcPkey)
>			copy to reorgwork
>			zap
*************************************************
* Dangerous line follows
*			append from work
* Typo correction	
	 		append from Reorgwork
*************************************************
>		endif
>		use
>	else
>		lerror = .f.
>	endif
>endfor
>
>erase 'reorgwork.dbf'
>erase 'reorgwork.fpt'
>erase 'reorgwork.cdx'
>close all
>if not empty( lcError )
>    on error &lcError
>else
>    on error
>endif
>
>
>

>
>Test this code first ( I just wrote it )
>
>Glenn
>
>>How can I easily sort a table based on the primary key?
>>
>>I wrote some FoxPro 6 code a few years ago (now with SP5) and now the client has a fair amount of data in the DB. I would like to resort most (or all) of the tables in that DB based on the primary key of each table.
>>
>>I have spent the last 2.5 hours goofing with SORT, COPY STRUCTURE, APPEND FROM... and combinations there of. In the end all I ended up with was frustration. I am certain that I ran a couple of simple commands when I imported their old data into the 'new' database a few years ago but I just can not seem to figure out the process. Surely, there is an easy way to do this.
>>
>>Any suggestions would be appreciated.