单位报名人数查错.prg

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

**单位报名人数查错
*!*	set path to c:\zbydhxt
use 各项目单位名单.dbf in 0 alias ff1
use 队员总表.dbf in 0 alias ff2
use 分组情况.dbf in 0 alias ff3

sele ff1
do while .not.eof()
   xmdm=项目代码
   xb=性别
   zb=分组名称
   dwdm=单位代码
  sele ff2
   count for 项目代码=xmdm.and.性别=xb.and.分组名称=zb.and.单位代码=dwdm to rs
  
*!*	  
  sele ff3
  go 1
  locate for 分组名称=zb
  if found()
     zdrs=单项限报人数
     
   sele ff1
   
   
   if left(xmdm,2)#"JL"
      if rs<=zdrs
         repla 参赛人数 with rs,备注 with "正确"
         else
         repla 参赛人数 with rs,备注 with "人数多"
       endif
     endif
          
     sele ff1
   skip
enddo



sele ff1
locate for 备注="人数多"
if found()
     messagebox("有错误，有单位人数多！！！")
     bbzz=备注
     dwmc=单位简称
     xmmc=项目名称
     xmdm=项目代码
     xb=性别
     zb=分组名称
     ?dwmc,xmmc,xb,zb
     messagebox(dwmc)
   endif
sele ff1
use
sele ff2
use
sele ff3
use
clear all