项目赋名称.prg

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

***给队员初始.dbf的项目1－项目5赋上项目名称　最后编缉　张冰
***set path to c:\zbydhxt
use 队员初始.dbf in 0 alias e1
use 项目初始.dbf in 0 alias e2
sele e2
go 1
do while .not.eof()
   xmdm=项目代码
   xmmc=项目名称
   skip
   sele e1
   go 1
*!*	   xmmcc=项目11
*!*	   if empty(xmmcc)<>.T.
   
   do while .not.eof()
     xm1=项目1
     xm2=项目2
     xm3=项目3
     xm4=项目4
     xm5=项目5
       if xm1=xmdm
        repl 项目11 with xmmc
      endif
      if xm2=xmdm
         repl 项目22 with xmmc
       endif
       if xm3=xmdm
        repl 项目33 with xmmc
      endif
      if xm4=xmdm
         repl 项目44 with xmmc
       endif
      if xm5=xmdm
         repl 项目55 with xmmc
       endif
      
      skip
      enddo
   sele e2
enddo 
sele e1
use
sele e2
use