（问一下，我要在表（假如表有100个记录）中给一个字段填上数字1－100，不能重复，而且，要随机填充，我该怎么做？

先谢谢了！

[此贴子已经被作者于2006-12-5 13:05:38编辑过]

写成这样，可是循环至不停，只能通过任务管理器关闭VFP，怎么办呀！
n = int(rand()*100)+1
IF n<=RECCOUNT() AND n !=0
go top
REPLACE xh WITH n
endif
i = 2
do while i<=RECCOUNT()
n = int(rand()*100)+1
IF n<=RECCOUNT() AND n !=0
loca for xh = n
if !found()
GO i
repl xh with n
i=i+1
ENDIF
endif
enddo