aa.prg

来自「进销存管理系统医药版,支持自动生成药品首写拼音字母快速查询.」· PRG 代码 · 共 16 行

SET MULTILOCKS ON
CREATE CURSOR curTemp (fldInNum N(10))  &&建立临时表
=CURSORSETPROP("Buffering",5)           &&设置为开放式表缓冲
APPEND BLANK               &&增加空记录
REPLACE fldInNum WITH 20   &&替换为20
?OLDVAL("fldInNum")        &&返回.NULL.
?CURVAL("fldInNum")        &&返回.NULL.
?fldInNum                  &&返回20
?TABLEUPDATE(.T.,.F.)      &&返回.T.
?OLDVAL("fldInNum")        &&返回20
?CURVAL("fldInNum")        &&返回20
?fldInNum                  &&返回20
REPLACE fldInNum WITH 40
?OLDVAL("fldInNum")        &&返回20
?CURVAL("fldInNum")        &&返回20
?fldInNum                  &&返回40