set path to c:\zbydhxt
use 分組后存放表.dbf in 0 alias fz
use 分組打印用表tts.dbf in 0 alias fzd
use 統計表1.dbf in 0 alias tj
sele fzd
zap
sele tj
go top
do while .not.eof()
   xmdm=項目代碼
   xmmc=項目名稱
   fd=是否分道
   xb=性別
   zbb=組別
   zs=分組數
   zrs=總人數
   skip
  
   
if fd<>.T..and.zrs>1
   xh=0
   sele fz
   set filter to 項目代碼=xmdm.and.性別=xb.and.組別=zbb
   go top
   for tt=1 to ceiling(zrs/2)
          sele fzd
          append blank
          for ll=1 to 2
              xh=xh+1
              if xh>zrs
                 exit
              endif
              sele fz
              hm=號碼
              xm=姓名
              dwdm=單位代碼
              dwmc=單位名稱
              ***xxhh=序號
              skip
              sele fzd
              repl 項目代碼 with xmdm,項目名稱 with xmmc,性別 with xb,組別 with zbb,總組數 with zs,總人數 with zrs
              
              if ll=1
                 repl 序號 with xh,號碼 with hm,姓名 with xm,單位代碼 with dwdm,單位名稱 with dwmc
               endif
               if ll=2
                 repl 序號1 with xh,號碼1 with hm,姓名1 with xm,單位代碼1 with dwdm,單位名稱1 with dwmc
               endif
            endfor
            if xh>zrs
            exit
            endif
     endfor
     sele fz
     set filter to 
 endif
sele tj  
enddo


sele fzd
repl all 賽別 with "決賽" for 總組數=1
repl all 賽別 with "預賽" for 總組數>1


use 日程.dbf in 0 alias rc
sele fzd
go top
do while .not.eof()
   xmdm=項目代碼
   xb=性別
   zb=組別
   sele rc
   locate for 項目代碼=xmdm.and.性別=xb.and.組別=zb
     if found()
        sx=順序
        lb=類別
        rq=日期
        zx=總序
        sele fzd
        repl 順序 with sx,類別 with lb,日期 with rq,總序 with zx
      else
         messagebox("你的日程編排有問題,可能是漏項!!")
      endif
      sele fzd
      skip
enddo







clear all