***給隊員初始.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