项目中，当打开的窗口中包含表控件的时候，就。。。，当打开的窗口中不包含表控件的时候就。。。。

这个写个全局代码怎么写，

dim kk As Boolean

For Each c As Control in e.Form.Controls

    if Typeof c Is WinForm.Table Then

        kk=  True

        Exit For

    End if

next

if kk then

    ‘包含

Else

     ‘不包含

end If

设计一内部函数即可
 
dim kk As Boolean
Dim frm AS Winform.form = Args(0)
For Each c As Control in e.Form.Controls
    if Typeof c Is WinForm.Table Then
        kk=  True
        Exit For
    End if
next
Return KK
 
调用方法，窗口AfterLoad：
 
if  Functions.Execute("函数"，e.Form) Then
else
end if
 
参考：
http://www.foxtable.com/help/topics/1486.htm

代码如下，我的窗口就2种情况，包含表和不包含表的2种，如果打开的窗口中没有表，那么某控件不能用，如果有表就可以用，这个做个全局代码？内部函数？不想每个窗口都增加这么一段。

Dim kk As Boolean
Dim pg As WinForm.TabPage
 pg = Forms("窗口").Controls("TabControl1").TabPages(1)
For Each c As Control In e.Form.Controls
    If Typeof c Is WinForm.Table Then
        kk=  True
        Exit For
    End If
Next
If kk Then
   pg.Enabled = False  \'包含\'pg.Enabled = False
Else
   pg.Enabled = True \'不包含
End If