单位人数生成.bak

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

***各代表队的运动员总数的统计程序***********张冰＊＊＊＊＊＊＊＊＊＊
*!*	set path to c:\zbydhxt
use 队员初始.dbf in 0 alias b1
use 单位初始.dbf in 0 alias b2
use 分组情况.dbf in 0 alias b3
use 性别.dbf in 0 alias b4
use 单位人数统计.dbf in 0 alias b5
sele b5
zap
nnn=0
sele b2
go 1
do while .not.eof()
   dwdm=单位代码
   dwmc=单位简称
   ld=领队
   jl=教练
   skip
sele b4
go 1   
do while .not.eof()
    xb=性别
    skip
sele b3
go 1
do while .not.eof()
   zb=分组名称
   skip
*****************************************************内部开始   
sele b1
set filter to  单位代码=dwdm.AND.性别=xb.and.分组名称=zb
count for 单位代码=dwdm.AND.性别=xb.and.分组名称=zb to zrs11
set filter to
sele b5
if zrs11#0
append blank
repl 单位代码 with dwdm,单位简称 with dwmc,性别 with xb,分组名称 with zb,人数 with zrs11
endif
sele b3
enddo
sele b4
enddo
sele b2
enddo
***********************





sele b1
use
sele b2
use
sele b3
use
sele b4
use
sele b5
use