****經測試成功了＊＊＊＊張冰＊＊＊＊
set path to c:\zbydhxt
use 統計表1.dbf in 0 alias ttt3
USE 單位數統計用表.dbf in 0 alias ttt1
sele ttt1
***set safety off &&&不出現刪除的提示框！！！
zap
APPEND FROM c:\zbydhxt\隊員總表1.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 單位數 with dws
  skip
 enddo
 
 ****************************************






sele ttt1
use
sele ttt3
use