dmlr.prg

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

para DMKDBF,DMKM,FIELD1,FIELD2,FIELD3
public dmlr,DM2
OPTION=3
OK=.F.
STORE "" TO DM1,DM2,DMLR
DMALIA=ALIAS()
IF USED(DMKM)
   SELE (DMKM)
   ELSE
     OK=.T.
     SELE 0
     USE (DMKDBF) ALIAS (DMKM)
ENDIF
SET FILTER TO
INDEX ON &FIELD2 TAG T001 OF DMCDX.CDX
SET ORDER TO 1
DO FORM DMLR
IF OK
   SELE (DMKM)
   SET INDEX TO
   USE
   ERASE DMCDX.CDX
ENDIF
SELE (DMALIA)
RETURN DMLR