单位数统计.prg

田径运动会管理系统RAR 用VFP编写

****经测试成功了＊＊＊＊张冰＊＊＊＊
*!*	set path to c:\zbydhxt
use 统计表.dbf in 0 alias ttt3
USE 单位数统计用表.dbf in 0 alias ttt1
sele ttt1
***set safety off &&&不出现删除的提示框！！！
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 单位数 with dws
  skip
 enddo
 ****************************************
sele ttt1
use
sele ttt3
use