加了一个全局变量,是逻辑型的,设置了一个条件,你看一下,窗口中的事件与表A中的事件代码就明白了,由于是开发版,为了大家学习,我将代码贴上来,红色的是我加上的.
一. 表A中表事件:BeforeSelChange中的代码,
If Vars("A")= True Then
Return
Else
If Tables("表A").Current.DataRow.RowState <> DataRowState.Unchanged Then
MessageBox.show("该记录已经被修改,保存之前不可换行")
e.cancel = True
End If
End If
二.窗口:AfterLoad中:
Vars("A")= True
Tables("表A").Filter = "第一列 = 1"
三. 窗口:BeforeClose 中
Vars("A")= False
[此贴子已经被作者于2011-12-21 21:20:35编辑过]