📄 dr.prg
字号:
*************导入新建影集的图片*************************
SELECT user
GO bott
cFile=ALLTRIM(path)
SET DEFAULT TO &cFile
A = ADIR(cPict,'*.*')
SELECT &cDbf
FOR nCOUNT = 1 TO A
IF UPPER('.bmp') $UPPER((cPict (nCOUNT,1)))
FF = cFile + ALLTRIM(cPict (NCOUNT,1))
APPEND BLANK
REPLACE FileName WITH FF ,ID WITH ALLTRIM(STR(RECNO()))
ENDIF
LOOP
ENDFOR
SET DEFAULT TO h:\eeye
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -