以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  加载树筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88981)

--  作者:yifan3429
--  发布时间:2016/8/12 17:40:00
--  加载树筛选
使用了系统自带的加载树  默认打开   同时在项目的加载  和 表的加载设计了加载条件   但是加载树还是显示所有数据  如何根据登录人 加载树只显示相关的数据

条件如下:

If User.Name = "管理员" Then
DataTables("订单表").LoadFilter = ""
ElseIf user.Group = "设计师" Then
DataTables("订单表").LoadFilter = "设计师 = \'" & User.Name & "\'"
ElseIf user.Group = "客服" Then
DataTables("订单表").LoadFilter = "客服 = \'" & User.Name & "\'"
ElseIf user.Group = "报价" Then
DataTables("订单表").LoadFilter = "报价 = \'" & User.Name & "\'"
End If
DataTables("订单表").Load()


[此贴子已经被作者于2016/8/12 17:44:49编辑过]

--  作者:大红袍
--  发布时间:2016/8/12 17:53:00
--  

 用代码设置打开加载树

 

http://www.foxtable.com/webhelp/scr/2022.htm

 


--  作者:yifan3429
--  发布时间:2016/8/12 19:48:00
--  
从字符串“客服 = User.Name”到类型“Integer”的转换无效。


Case "按客户"
        Tables("订单表").OpenLoadTree("客户|状态|订单名称")
    Case "按日期"
       
        If User.Name = "管理员" Then
            DataTables("订单表").LoadFilter = ""
        ElseIf user.Group = "设计师" Then
            Tables("订单表").OpenLoadTree("日期 YM|状态|订单名称","设计师 = User.Name")
        ElseIf user.Group = "客服" Then
            Tables("订单表").OpenLoadTree("日期 YM|状态|订单名称","客服 = User.Name")
        ElseIf user.Group = "报价" Then
            Tables("订单表").OpenLoadTree("日期 YM|状态|订单名称","报价 = User.Name")
        End If
        
    Case "按状态"
        If User.Name = "管理员" Then
            DataTables("订单表").LoadFilter = ""
        ElseIf user.Group = "设计师" Then
            Tables("订单表").OpenLoadTree("状态|客户|订单名称","设计师 = User.Name")
        ElseIf user.Group = "客服" Then
            Tables("订单表").OpenLoadTree("状态|客户|订单名称","客服 = User.Name")
        ElseIf user.Group = "报价" Then
            Tables("订单表").OpenLoadTree("状态|客户|订单名称","报价 = User.Name")
        End If

--  作者:Hyphen
--  发布时间:2016/8/13 8:36:00
--  
请仔细看2楼帮助,可选参数用了后面的,前面也要填上,客服和报价参考下面的方式改改

Tables("订单表").OpenLoadTree("日期 YM|状态|订单名称",100,100,True,"设计师 = \'" & User.Name & "\'")