主题：关于全局表的问题

还是设置在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