我在命令窗口或用程序执行set multilocks on以后表单都无效，必须要在表单里来set multilocks on才有效，请问各位知道出现这种情况原因吗？怎么解决？


***********************我的代码如下******************************
CURSORSETPROP("Buffering", 5,"入库单据")

******************************************************************************
lnMsg = MESSAGEBOX([是否保存当前入库单?],3+64+512,[保存提示])

IF lnMsg = 2 &&忽略
NODEFAULT && 返回到入库单输入界面
RETURN
ENDIF

IF lnMsg = 7 && 不保存
TABLEREVERT(.t.,[入库单据]) &&将前面添加的一条记录撤消
RETURN
ENDIF

IF lnMsg = 6 && 保存
* 1 保存入库单数据
TABLEUPDATE(1,.t.,[入库单据])
* 提取库存编号
SELECT 库存明细
CALCULATE MAX(VAL(SUBSTR(编号,2,6))) TO j
IF CHRTRAN(STR(j,6)," ","0")<>alltrim(str(YEAR(DATE()),4)+CHRTRAN(str(MONTH(DATE()),2)," ","0"))
i=0
endif
CALCULATE MAX(VAL(SUBSTR(编号,9,4))) TO I
c=alltrim("R"+CHRTRAN(str(year(DATE()),4)," ","0")+CHRTRAN(str(MONTH(DATE()),2)," ","0")+"-"+CHRTRAN(STR(i+1,4)," ","0"))
* 2 保存入库单明细
SELECT temp
SCAN FOR 数量>0 AND !EMPTY(货物名称)&&把数量不为0且品名不为空的添加到入库明细表
INSERT into 入库明细(入库单号,流水号,分类,货物名称,规格型号,生产厂家,计量单位,数量,单价)values(入库单据.入库单号, temp.流水号,temp.分类,temp.货物名称,temp.规格型号,temp.生产厂家,temp.计量单位,temp.数量,temp.单价)
UPDATE 库存明细 set 数量=数量+temp.数量 where(分类=temp.分类 AND 货物名称=temp.货物名称 AND 规格型号=temp.规格型号 AND 生产厂家=temp.生产厂家 AND 计量单位=temp.计量单位)&& 更新库存表
IF _tally = 0 &&如果更新库存的记录数为0，则库存中未建立该商品的账目，需要插入一条记录
INSERT into 库存明细(编号,分类,货物名称,规格型号,生产厂家,计量单位,数量)values(c,temp.分类,temp.货物名称,temp.规格型号,temp.生产厂家,temp.计量单位,temp.数量)
ENDIF
ENDSCAN
ENDIF