主题：求一个全局代码或者内部函数的代码

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