vfp:更新数据（1）

利用缓冲，更新被修改的表中的记录

 

表单的init事件中：

SET MULTILOCKS ON
=CURSORSETPROP("Buffering",2)

保存按钮：

lModified=.F.
FOR nFieldNum=1 to  FCOUNT()
IF GETFLDSTATE(nFieldNum)=2
lModified=.T.
EXIT
ENDIF
ENDFOR
IF lModified
nResult=MESSAGEBOX("记录已经被修改，是否保存？",4+32+256,"数据更新")
IF nResult=7
=TABLEREVERT(.F.)
ELSE
=TABLEUPDATE(.t.)
ENDIF
ENDIF

THISFORM.refresh