dksjk.prg

退货退厂增添输入日期时提示不是本月将不显示。 供货商名称修改后

*打开数据库程序
*程序名:ZLDKSJK
*程序员:庄稼
*编制日期:1995.7.2

*变量说明
*ERR:错误号
*SJKM:数据库名
*BM:别名

PARAMETERS SJKM,BM

PRIVATE ALL

ERR=0

ON ERROR ERR=ERROR()
SELECT &BM
IF ERR=13
   SELECT 0
   USE &SJKM ALIAS &BM
ENDIF
ON ERROR

RETURN