To be honest I don't really understand what you're doing.. but
one thing that did stand out in your post was the following

If your table is indexed on Printorder (and this index is currently active)
when you replace printorder with another value your current position in the table will jump to the newly indexed position, so doing this in a scan looop could cause unexpected results. maybe it will process some records twice or some not at all.

I suspect you should get rid of the order before doing the scan

HTH
Will

>Good morning all!! I have a situation with a renumbering sequence problem. My code seems to be right, and it works are far as an open table through the command window. As I have it, my table called plfile is order by a field called PrintOrder N(3). There are currently 31 records in this table. On the form, this table is accessed through a grid called grdFinancialChart. The code that executes this renumbering sequence is located in the right-click event. The problem that I am having is that when trying to change the printorder from current value of 12 to the new value of 6, somewhere along the line (usually when the value is 2 digits), the system skips a record and thus a value is duplicated in the printorder field. 1,2,3,4,5,6,7,8,9,10,10,11,12,13,14...etc
>
>Here is the code that is executed in the right click of the grid column for printorder. The form that is being executed in the code is a ghost form with only a textbox and button which has a controlsource of a variable which is carried out through the code:
>
>

WITH THISFORM	
>	lContinue = .F.
>
>	&& STORES INFO FROM DATABASE
>	nNewPrintOrder = ROUND(VAL(SPACE(5)),0)
>	nOldValue = plfile.printorder
>	nRecordNo = RECNO()
>	MESSAGEBOX("RECORD#" + ' '+ STR(RECNO()),0)
>
>	DO FORM gl_pnl_neworder
>
>			GOTO nRecordNo
>			REPLACE plfile.printorder WITH nNewPrintOrder
>			
>	IF lContinue = .T.
>		**OLD # 4 and NEW is 7
>		IF nNewPrintOrder >= nOldValue
>			nResetPrintOrder = 1
>			SCAN FOR printorder <= nNewPrintOrder AND RECNO        ()                       <>nRecordNo
>			REPLACE printorder WITH nResetPrintOrder
>			nResetPrintOrder = nResetPrintOrder + 1
>			ENDSCAN
>		ELSE
>			MESSAGEBOX("RECORD#" + ' '+ STR(RECNO()),0)
>			nResetPrintOrder = nNewPrintOrder + 1	
>			SCAN FOR printorder >= nNewPrintOrder AND RECNO()<>nRecordNo
>			  REPLACE printorder WITH nResetPrintOrder
>			  nResetPrintOrder = nResetPrintOrder + 1
>			ENDSCAN
>		ENDIF
>
>		.grdFinancialChart.Refresh()
>	ENDIF
>	
>	THISFORM.mPLRecalculate()
>	GO TOP
>ENDWITH
>

>
>Thanks for any help or assistance with this problem that is haunting me!