⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 chs.prg

📁 门诊收费管理系统
💻 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 
*

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -