主题：关于全局表的问题

我有5个表，分别是医学普刊，医学核心，社科普刊，社科核心，经管普刊 我在全局表事件的AfterOpenProject事件中添加 Select Case User.Group Case "网络" Tables("医学普刊").Cols.Remove("字符/版") Tables("医学普刊").Cols.Remove("可发周期") Tables("医学普刊").Cols.Remove("发表价格") Tables("医学普刊").Cols.Remove("主要栏目") Case "合作" Tables("医学普刊").Cols.Remove("发表价格") Tables("医学普刊").Cols.Remove("主要栏目") End Select 应该如何撰写了。

还是设置在AfterOpenProject事件中：

 

Dim nms As String() = {"医学普刊","医学核心","社科普刊","社科核心"}
For Each nm As String In nms
    Select Case User.Group
        Case "网络"
            Tables(nm).Cols.Remove("字符版")
            Tables(nm).Cols.Remove("可发周期")
            Tables(nm).Cols.Remove("发表价格")
            Tables(nm).Cols.Remove("主要栏目")
        Case "合作"
            Tables(nm).Cols.Remove("发表价格")
            Tables(nm).Cols.Remove("主要栏目")
    End Select
Next

另外狐爸，我在医学普刊里面设置的公式，怎么放到全局表中全部失效了。

 

全局表事件，只有四个默认是生效的，其他要显式设置，参考:

http://www.foxtable.com/help/topics/0671.htm