单位数统计.bak

来自「田径运动会管理系统RAR 用VFP编写」· BAK 代码 · 共 40 行

****经测试成功了＊＊＊＊张冰＊＊＊＊
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