以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如果用目录树做分区域权限  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29680)
--  作者：linshibin
--  发布时间：2013/3/11 16:08:00
--  如果用目录树做分区域权限
 系统有三个字段  company  usergroup   belonguser

company的主管可以看到 所有信息
usergroup的主管可以看到这个部门的信息
普通用户只可以看到自己的信息。  这个加载树要怎么写，求助
--  作者：狐狸爸爸
--  发布时间：2013/3/11 16:38:00
--  

你然可以设计筛选树，那么如何合成条件您已经会了，只需在融合下面的知识：
http://www.foxtable.com/help/topics/2256.htm


 
Dim flt As String
根据合成条件
If Flt > "" then
    If User.Name = "张经理" Then
         DataTables("订单").LoadFilter = flt
    Else
         DataTables("订单").LoadFilter = flt & " And 业务员 = \'" & User.Name & "\'"
    End If
    DataTables("订单").Load()
End If