以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  显示表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=136580)
--  作者：北狐
--  发布时间：2019/6/16 17:13:00
--  显示表
需求：打开项目时，只显示内部查询表和外部查询表


项目事件

AfterOpenProject中使用下列代码，但无效


For Each dt As DataTable In DataTables
    For Each t As Table In Tables
        If dt.Type =2  Or dt.Type =4  Then
            t.Visible = True
        Else
            t.Visible = False
        End If
    Next
Next

请问老师上述代码是哪里有问题？谢谢
--  作者：y2287958
--  发布时间：2019/6/16 21:51:00
--  
For Each dt As DataTable In DataTables
    Tables(dt.Name).Visible = dt.Type =2  Or dt.Type =4
Next
--  作者：有点甜
--  发布时间：2019/6/17 9:24:00
--  
For Each t As Table In Tables
    If t.DataTable.Type =2  Or t.DataTable.Type =4  Then
        t.Visible = True
    Else
        t.Visible = False
    End If
Next