主题：打开软件必须加载一个表处理方法

加载一个后台数据表，设置不加载任何数据及 普通用户不显示出来。

在afteropenproject 中设置 不显示出来

 

 

For Each tb As Table In Tables
   
    If user.Type = UserTypeEnum.User Then
        Tables(tb.name).Visible =False
    Else
       ' msgbox("afteropenproject" & dtb.name)
       
        Tables(tb.name).visible = True
       
    End If
   
Next

 

 

 

此主题相关图片如下：10.jpg

 

 

如果在

LoadUserSetting

事件里设置不显示，始终都会显示一个表。不知道为什么

 

此主题相关图片如下：11.jpg

 这个是bug，你在两个事件都写代码即可。