createmedal.bak

来自「一个精彩的奥运会成绩统计系统」· BAK 代码 · 共 27 行

*本程序用来重新创建或刷新表medal.dbf和total.dbf的队名
use medal in a
use total in b
zap in a
zap in b
close tabl
use medal in a 
use playteam in c
use total in d
create view team as select 队名 from playteam dist
use team in b
sele b
count to num
go top in b&&此处不可改为添加在上面，见程序总结。
do while num>0
num=num-1
sele a
append blank
replace 队名 with b.队名
sele d
append blank 
replace 队名 with b.队名
skip  in b
enddo
drop view team
close tables