****日程用表內容原生成！適用于無報名成績的二賽制比賽！
*!*	set path to c:\zbydhxt
use 統計表.dbf in 0 alias a001
use 日程用表.dbf in 0 alias a002
use 競賽參數.dbf in 0 alias a003
sele a003
zzss=單項比賽最少人數
use
sele a002
zap
sele a001
do while .not.eof()
xmdm=項目代碼
xmmc=項目名稱
xb=性別
zb=分組名稱
zrs=總人數
fzs=分組數
dws=單位數
*!*	if left(xmdm,2)<>'JL'
sele a002
if zrs>=zzss&&&判斷是否進行比賽！
if fzs=1&&直接決賽
append blank
repl 項目代碼 with xmdm,項目名稱 with xmmc,;
     性別 with xb,分組名稱 with zb,單位數 with dws,總人數 with zrs,分組數 with fzs,賽次 with "決賽"
endif
if fzs>1
append blank
repl 項目代碼 with xmdm,項目名稱 with xmmc,;
     性別 with xb,分組名稱 with zb,單位數 with dws,總人數 with zrs,分組數 with fzs,賽次 with "預賽"&&&&&???????要修改
append blank
repl 項目代碼 with xmdm,項目名稱 with xmmc,;
     性別 with xb,分組名稱 with zb,單位數 with dws,總人數 with zrs,分組數 with 1,賽次 with "決賽"
 endif
 endif
 sele a001
 skip
 enddo
 sele a001
 use
 sele a002
 use