名项目单位名单生成.prg

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

********************************张冰＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊各项目单位名单生成!

*!*	set path to c:\zbydhxt
use 统计表.dbf in 0 alias ddd1
use 各项目单位名单.dbf in 0 alias ddd2
use 单位数统计用表.dbf in 0 alias ddd3
sele ddd2
zap
sele ddd1
do while .not.eof()
   xmdm=项目代码
   xmmc=项目名称
   xb=性别
   zb=分组名称
   skip
      sele ddd3
      index on 单位代码 to ddww uniq for 项目代码=xmdm.and.分组名称=zb.and.性别=xb
      do while .not.eof()
         dwdm=单位代码
         dwmc=单位简称
         skip
         sele ddd2
         append blank
         repl 单位代码 with dwdm,单位简称 with dwmc,项目代码 with xmdm,项目名称 with xmmc,性别 with xb,分组名称 with zb
         sele ddd3
       enddo
       close index
       dele file ddww.idx
    sele ddd1
enddo
sele ddd1
use
sele ddd2
use
sele ddd3
use