但是如果对每一个可以编辑的控件的INTERACTIVECHANGE事件都写入代码,显得有点麻烦,即使作为类考虑也不是很好的办法,所以下面的方法供大家参考。
注意:使用此法,你必须用缓冲方式打开表才行。
isNeedToSave=.f.
for gnCount = 1 TO FCOUNT( ) && 循环次数等于字段的数目
if GETFLDSTATE(FIELD(gnCount))>=2 && 显示各字段,具体看GETFLDSTATE()函数
isNeedToSave=.t.
exit && 当有某个字段被修改后,即退出判断
endif
endfor
if isNeedToSave
ans=messagebox(要保存所做的修改吗?,3+32,询问)
do case
case ans=6 && 选择是
=tableupdate(.t.)
case ans=7 && 选择否
=tablerevert(.t.)
case ans=2 && 选择取消
endcase
endif
建议将以上代码写在表单的QUERYUNLOAD事件中。
251



被折叠的 条评论
为什么被折叠?



