zfdata.prg

来自「包括了6个VFP程序设计实例」· PRG 代码 · 共 22 行

CLOSE DATA
SELE 0
USE ..\DATA\RSXX ALIAS RSXX
SELE 0
USE ..\DATA\JSGZ ALIAS JSGZ
GO TOP
DO WHILE NOT EOF()
   STORE ALLT(编号) TO RYBM
   SELE RSXX
   LOCA FOR ALLT(编号)=RYBM
   IF FOUND()
      STORE ALLT(排序号) TO PXH
      SELE JSGZ
      REPL 排序号 WITH PXH
      ELSE
        =MESSAGEBOX(RYBM)
   ENDIF
   SELE JSGZ
   SKIP
ENDDO
RETURN