VFP 愛用者社區

[yeer]

select * from tiku;
where 难度="1" into cursor nd1

for i = 1 to 30
sele 1
use nd1
copy stru to nd3
sele 2
use nd3
select 1
pnum=reccount() &&表3的总记录数
prand=Rand()*pnum
select 2
append from 表1 for recno() = prand
close all
endfor

select * from tiku;
where 难度="2" into cursor nd2

for i = 1 to 40
sele 1
use nd1
copy stru to nd4
sele 2
use nd4
select 1
pnum=reccount() &&表4的总记录数
prand=Rand()*pnum
select 2
append from 表1 for recno() = prand
close all
endfor

select * &&将两个表合并成一个表
into nd5 && 生成考试纸表 作为考试界面的数据源
from nd3,table4

delect cursor nd3
delect cursor nd4

[Le1015]

tiku,nd1這兩個是檔案嗎？

這段程式在做什麼用的

[Le1015]

真的有一點看不懂
幫你修正一下
假設 表1,tiku都是檔案
*是不是資料庫亂數取出30筆資料
Select 3
Use tiku
select * from tiku where 難度="1" into cursor nd1
AFields(DBFStru)
Create Cursor nd3 Array DBFStru
Create Cursor nd4 Array DBFStru
Create Cursor nd5 Array DBFStru
Select nd1
pnum=reccount()
for i = 1 to 30
prand=Int(Rand()*pnum)
select nd3
append from 表1 for recno() = prand
endfor
Use In

select * from tiku;
where 難度="2" into cursor nd2

&&是不是資料庫亂數取出40筆資料
select nd2
pnum=reccount()
for i = 1 to 40
prand=Int(Rand()*pnum)
select nd4
append from 表1 for recno() = prand
endfor

Select nd5
Append From DBF("nd3")
Append From DBF("nd4")
copy to nd5.dbf
close all