chs.prg

门诊收费管理系统

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: CHS.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 USE EXCLUSIVE e:\红阳医院\work\jgb1.dbf
 GO TOP
 FOR I = 1 TO 1597
    GO I
    M.CPBH = CPBH
    ? M.CPBH
    FOR J = I + 1 TO 1597
       GO J
       IF M.CPBH = CPBH
          DELETE 
          PACK 
       ENDIF 
    ENDFOR 
    ? J
 ENDFOR 
*