VFP 愛用者社區

[kmkna1103]

&&鎖定資料
FUNC LOCK_TB(_KEYS,_TBNA)
PRIVATE _CHK
_CHK=.T.
SETDBS2("LOCK_AVE","LOCK_AVE",[ WHERE XAMEDITS='&_KEYS' ])
IF CHKCUR("LOCK_AVE")
MESSAGEBOX("此筆記錄正由人員代號:"+ALLTRIM(LOCK_AVE.USERS)+"編輯中喔!!",0+64+0,"請確定")
_CHK=.F.
ELSE
&&重新抓取遠端資料
SQLEXEC(XCONNHANDLE,[SELECT * FROM &_TBNA WHERE AMEDITS='&_KEYS' ],[CHKLOCK])
IF CHKCUR("CHKLOCK")
* MESSAGEBOX("OK")
SELECT LOCK_AVE
APPEND BLANK
REPLACE AMEDITS WITH IIF(EMPTY(AMEDITS),_COMPUTER1+SYS(2015)+TIME()+AUTX(),AMEDITS)
REPLACE LOCK_YN WITH 'Y'
REPLACE USERS WITH SUPERUSER
REPLACE XAMEDITS WITH _KEYS
SELECT LOCK_AVE
TABLEUPDATE(.F.)
* SELECT LOCK_AVE
* BROW
ELSE
MESSAGEBOX("此筆記錄已不存在喔!!",0+64+0,"請確定")
_CHK=.F.
ENDIF
CLOSE_DBF("CHKLOCK")
ENDIF
CLOSE_DBF("LOCK_AVE")
RETU _CHK
*****做下面的動作

PRIVATE _BOC_NO,_AMEDITS
_BOC_NO=BOC.BOC_NO
_AMEDITS=BOC.AMEDITS
IF LOCK_TB(_AMEDITS,"BOC")
SELECT BOC
MREC=RECNO()
THISFORM. ENABLED=.F.
THISFORMSET._BOC_NO = BOC.BOC_NO
THISFORMSET. FORM2. CAPTION="修改作業"
THISFORMSET. FORM2. VISIBLE=.T.
THISFORMSET. FORM2. BOC_NO1.ENABLED=.F.
THISFORMSET. FORM2. BOC_NA1. SETFOCUS
SQLEXEC(XCONNHANDLE,[DELETE FROM LOCK_AVE WHERE XAMEDITS='&_AMEDITS' ])
ELSE
THISFORM. GRID1. SETFOCUS
ENDIF
*******
BROW LOCK_AVE時候有資料寫入，但是到SQL查詢卻沒有寫入，不過不要用
FORMSET的做法又不會有這樣的問題，請問有人知道是什麼況狀導致這種現象嗎?

[kmkna1103]

問題已解決。