求问一个对动态更新的表做循环的有关问题，望各位赐教

求问一个对动态更新的表做循环的问题，望各位赐教
我有一个表，对这个表做do循环更改此表内容，我希望每做一次循环都能更新这个表的内容直到表中内容变成我希望的内容位置，求教这个怎么做。
我有个初步的写法如下，但总觉得有问题
clos all
use t_XX
dl=reccoun()
do while dl<>0
tmpdh=dh
repl bz with '1'  for dh=tmpdh
sele * from t_xx where bz='0' into cursor tmp
dl=reccou()
enddo
大家帮忙看看

------解决方案--------------------

引用:

获取排序号最大的那条记录中的其他字段去做“别的运算”

这么关键的需求怎么可以简化掉？

Local nOldRec


Use t_XX

Index on 排序号 tag 排序号 Descending

Do while .t.

	Locate for bz = '0'

	If Found()

		nOldRec = Recno()

		* 做你需要的其他事情

		Select t_xx

		Goto (nOldRec)

		Replace next 1 bz with '1'

	Else

		Exit

	EndIf

EndDo

Delete Tag 排序号