📄 changestru_2.prg
字号:
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
* 文件名: CHANGESTRU_2.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
LOCAL LERR , OLDERR
OLDERR = ON('error')
ON ERROR lerr=.t.
IF FILE('oldrsgz.dbf')
IF FILE('rsgz.dbf')
IF .NOT. USED('rsgz')
USE IN 0 rsgz
ENDIF
SELECT RSGZ
APPEND FROM oldrsgz
IF USED('oldrsgz')
USE IN OLDRSGZ
ENDIF
DELETE File oldrsgz.dbf
DELETE File oldrsgz.fpt
ENDIF
ENDIF
ON error &olderr
*
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -