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本分代有的加载树功能后，分组显示失效了，有高手能帮我高定不，不要给我说手动写加载树代来，我不想手写，因为我有很多表---------------
加好友 
发短信
Post By：2017/2/13 10:19:00 [只看该作者]
