-- 作者:wei0769
-- 发布时间:2017/4/19 9:38:00
-- 打开软件必须加载一个表处理方法
加载一个后台数据表,设置不加载任何数据及 普通用户不显示出来。
在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
|