Question

vfp求随机命令

导入一个Excel表，在A表中随机抽取一行或多行到B表中，导出B表成Excel表.
求三个按钮的事件命令

Answer 1

随机抽取按钮
select a
ss=reccount()
k=int(mod(rand()*100000,ss))+1
go k
rr=recn()
select b
append from a for recn()=rr

导入
select a
append from book1.xls type XLS

导出
select b
copy to book2 XLS

追问

随机抽取按钮 命令的文字说明能写下吗，我长时间不用VFP有点不名白。

追答

随机抽取按钮
select a &&选择a表
ss=reccount() &&记住a表中的记录数
k=int(mod(rand()*100000,ss))+1 &&随机产生一个数值，数值在1至a表最大记录数之间
go k &&到达刚才的随机数记录，即a表中的随机一行
rr=recn() &&记住这一行的记录号
select b &&选择b表
append from a for recn()=rr &&将a表中的随机那一行插入到b表中来