********************************張冰＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊各項目單位名單生成!

*!*	set path to c:\zbydhxt
use 統計表.dbf in 0 alias ddd1
use 各項目單位名單.dbf in 0 alias ddd2
use 單位數統計用表.dbf in 0 alias ddd3
sele ddd2
zap
sele ddd1
do while .not.eof()
   xmdm=項目代碼
   xmmc=項目名稱
   xb=性別
   zb=分組名稱
   skip
      sele ddd3
      index on 單位代碼 to ddww uniq for 項目代碼=xmdm.and.分組名稱=zb.and.性別=xb
      do while .not.eof()
         dwdm=單位代碼
         dwmc=單位簡稱
         skip
         sele ddd2
         append blank
         repl 單位代碼 with dwdm,單位簡稱 with dwmc,項目代碼 with xmdm,項目名稱 with xmmc,性別 with xb,分組名稱 with zb
         sele ddd3
       enddo
       close index
       dele file ddww.idx
    sele ddd1
enddo
sele ddd1
use
sele ddd2
use
sele ddd3
use