****經(jīng)測試成功了＊＊＊＊張冰＊＊＊＊
*!*	set path to c:\zbydhxt
use 統(tǒng)計表.dbf in 0 alias ttt3
USE 單位數(shù)統(tǒng)計用表.dbf in 0 alias ttt1
sele ttt1
***set safety off &&&不出現(xiàn)刪除的提示框！！！
zap
APPEND FROM 隊員總表.dbf
***index on 單位代碼 tag 單位代碼 uniq
sele ttt3 
do while .not.eof()
   dws=0
   xmdm=項目代碼
   zb=分組名稱
   xm=性別
  sele ttt1
  ***set filter to 項目代碼=xmdm.and.組別=zb.and.性別=xm
index on 單位代碼 to dwdm uniq for 項目代碼=xmdm.and.分組名稱=zb.and.性別=xm
  count to dws
  close index
 *** set filter to
  dele file dwdm.idx
  sele ttt3
  repl 單位數(shù) with dws
  skip
 enddo
 ****************************************
sele ttt1
use
sele ttt3
use