在表事件中引用窗口

在给窗口中的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


本页地址:http://www.foxtable.com/webhelp/topics/2764.htm