以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助，用了非代码加载树后分组失效了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96093)
--  作者：闻林
--  发布时间：2017/2/13 10:19:00
--  求助，用了非代码加载树后分组失效了

 

 

 

Select Case e.DataTableName
    Case "付款管理_托运"


        Dim ss() As String = e.SelectString.ToLower.Replace("where","|").Split("|")
        e.SelectString = ss(0) & " Where 项目名称 In (\'" & e.User.Roles.Replace(",","\',\'") & "\')"
        If ss.Length = 2 Then e.SelectString  = e.SelectString  & " and " & ss(1)
       
    Case Else
       
       
End Select

 

---------------如上代码是用来分组显示的“不同的角色进去显示不同的内容”，我再用了FOXTABLE本分代有的加载树功能后，分组显示失效了，有高手能帮我高定不，不要给我说手动写加载树代来，我不想手写，因为我有很多表---------------
--  作者：有点色
--  发布时间：2017/2/13 10:25:00
--  

1、加入msgbox，看里面的代码是否执行了。

 

msgbox(e.SelectString)

 

2、你可以去控制beforeLoad事件

 

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

 

3、控制加载树

 

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

 
--  作者：闻林
--  发布时间：2017/2/13 10:44:00
--  

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

 

 

我想把If User.Group = "财务经理" Then这代码换成判断角色，乍改啊，能帮我改哈吗，因为我一个用户可能有多个角色“项目名就是角色”
--  作者：有点色
--  发布时间：2017/2/13 10:48:00
--  
Tables("日报表").OpenFilterTree("项目 YMD|项目名称", 120, 50, true, "项目名 in (\'" & user.roles.replace(",", "\',\'") & "\')")
--  作者：闻林
--  发布时间：2017/2/13 11:12:00
--  

If user.roles.replace(",", "\',\'")  Then

Tables("数据分析_项目日下单量").OpenFilterTree("项目名称|下单日期 YMD", 120, 50, True, "项目名 in (\'" & user.roles.replace(",", "\',\'") & "\')")


End If

 

 

这样写不对呢
--  作者：闻林
--  发布时间：2017/2/13 11:14:00
--  
我是一个水手，能说明白点不，
--  作者：有点色
--  发布时间：2017/2/13 11:16:00
--  

If User.Roles like "*财务经理*" Then
    Tables("日报表").OpenFilterTree("项目 YMD|项目名称")
Else
    Tables("日报表").CloseFilterTree
End If

[此贴子已经被作者于2017/2/13 11:16:39编辑过]
--  作者：闻林
--  发布时间：2017/2/13 11:23:00
--  

不是这样子的，你们没懂我的意思，我一个表中有一列叫项目列，项目中的内容有角色1角色2角色X,,,我就想让不管那个进入系统，有的角色，就显示那些项目的内容
--  作者：闻林
--  发布时间：2017/2/13 11:24:00
--  
前进还是以加载树的方式显示
--  作者：有点色
--  发布时间：2017/2/13 11:24:00
--  
直接写4楼代码。