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

先谢谢了！

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

生成一个随机数,满足:(1)1-100之间;(2)与前面已生成的且已被保存在表中的随机数不重复;(3)没有保存在表中,则写入表中,重复生成随机数,直到找到100个这样的随机数为止.

写成这样，可是循环至不停，只能通过任务管理器关闭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

这个循环跳不出来的主要原因是 当再次查找跟所产生的随机数不一样的 xh的时候，一直能找到跟该随机数相等的xh。所以循环就一直停留在i=2处。这样改一下应该可以：

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
replace xh with 0 for recno()>i
loca for xh = n
if !found()
GO i
repl xh with n
i=i+1
endif
Endif
enddo

CREATE CURSOR TEMP (NO N(3))
DO WHILE RECCOUNT()<100
DO WHILE .T.
XH=INT(RAND()*100)+1
IF BETWEEN(XH,1,100)
LOCATE ALL FOR NO=XH
IF EOF()
EXIT
ENDIF
ENDIF
ENDDO
INSERT INTO TEMP (NO) VALUES (XH)
ENDDO
SELECT * FROM TEMP INTO TABLE XH

又学了一个好用的功能