单独执行代码和第一次执行代码的时候倒是能够隐藏

我测试没有问题：

注意代码要写在子表的事件中

项目事件

 

LoadUserSetting

 

For Each t As Table In Tables \'显示所有表和列

    t.Visible = True

    t.AllowEdit = True

    For Each c As Col In t.Cols

        c.Visible = True

        c.AllowEdit = True

    Next

Next

Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )

If  User.Type <> UserTypeEnum.User Then

    Return

End If

For Each dr As DataRow In DataTables("授权表").Select("用户名 = \'" & User.Name & "\'" )

    If dr.IsNull("列名") Then

        For Each t As Table In Tables

            If t.DataTable.Name = dr("表名") Then

                t.Visible = Not dr("不可见")

                t.AllowEdit = Not dr("不可编辑")

            End If

        Next

    Else

        For Each t As Table In Tables

            If t.DataTable.Name = dr("表名") Then

                For Each c As Col In t.Cols

                    If c.Name = dr("列名") Then

                        c.Visible = Not dr("不可见")

                        c.AllowEdit = Not dr("不可编辑")

                    End If

                Next

            End If

        Next

    End If

Next

 

If User.Name <> "开发者" Then

    RibbonTabs("Table").Visible = False

    RibbonTabs("Project").Visible = False

    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = False

    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = False

Else

    RibbonTabs("Table").Visible = True

    RibbonTabs("Project").Visible = True

    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = True

    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = True

End If

 

计划管理

 

表事件

 

检测项目_AfterLoadTableSetting

 

If e.Table.name = "构件清单.检测项目" Then

    e.Table.Cols("月份").visible =False

    e.Table.Cols("车间").visible =False

    e.Table.Cols("班组").visible =False

    e.Table.Cols("工程名称").visible =False

    e.Table.Cols("子项名称").visible =False

    e.Table.Cols("构件编号").visible =False

End If

 

窗口表事件

 

窗口与控件事件

 

自定义函数

 

全局代码

 

Default

 

 

 

菜单事件

 

 

最好上例子看看