以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：加载树权限问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85722)
--  作者：落叶孤影
--  发布时间：2016/6/1 18:33:00
--  求助：加载树权限问题
我在项目 afteropenproject中设置了如下代码：但是为什么在我切换用户后加载树还是显示呢？用户我已经分组了！请问怎样能实现不同用户登录，加载树会显示或不显示呢？

If User.Group = "财务经理" Then
    Tables("日报表").OpenLoadTree("日期 YMD|项目名称")
Else
   Tables("日报表").CloseLoadTree
   End If

这个写也不行：
If User.Group = "财务经理" Then
    Tables("日报表").OpenLoadTree("日期 YMD|项目名称")
   End If
--  作者：wyz20130512
--  发布时间：2016/6/1 23:05:00
--  
重新打开项目，经测试，代码没问题，正常呀！

若是仅切换用户，要达到如此效果，则代码放在项目事件的“LoadUserSetting"里。
[此贴子已经被作者于2016/6/1 23:08:49编辑过]
--  作者：落叶孤影
--  发布时间：2016/6/1 23:08:00
--  
代码是正常，但功能不能实现！
--  作者：wyz20130512
--  发布时间：2016/6/1 23:11:00
--  
若是仅切换用户（不重新打开项目），要达到如此效果，则代码放在项目事件的“LoadUserSetting"里。
--  作者：落叶孤影
--  发布时间：2016/6/1 23:38:00
--  

谢谢，我在表的beforload事件中设置了下面的代码就实现了！换成了筛选树代码，不知道为什么加载树代码为什么不能实现？

 

If User.Group = "财务经理" Then
    Tables("日报表").OpenFilterTree("日期 YMD|项目名称")
Else
 Tables("日报表").CloseFilterTree
End If
--  作者：大红袍
--  发布时间：2016/6/2 1:40:00
--  

在命令窗口，单独运行这句代码呢？

 

Tables("日报表").OpenLoadTree("日期 YMD|项目名称", 200)

 

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

 

 

 
--  作者：落叶孤影
--  发布时间：2016/6/2 10:07:00
--  
谢谢，已经解决了！放在表的beforload事件中或项目的“LoadUserSetting"里。 都可以了，谢谢wyz20130512的及时回复！