在表事件中引用窗口
在给窗口中的Table控件编写事件代码的时候,可以通过e.Form来引用此窗口,例如:
If
e.Table.Current("审核")
= True
e.Form.Controls("Button1").Enabled
= False
Else
e.Form.Controls("Button1").Enabled
= True
End
If
此外Table有个Form属性,当此Table位于某个窗口中时,可以用此属性返回该窗口。
这样我们可以在任何代码中获取Table所在的窗口(如果此Table位于窗口中的话),例如:
Dim
tb As
Table = Tables("表A")
If
tb.Form
IsNot Nothing
Then
If
tb.Current("审核")
= True
tb.Form.Controls("Button1").Enabled
= False
Else
tb.Form.Controls("Button1").Enabled
= True
End
If
End
If