老师，请问下面的情况，为什么切换用户时，只有角色为“劳务队”的用户不能加载数据，其它都可以?可能是什么问题
在项目的LoadUserSetting事件设如下代码：
If User.Name = "开发者" Or User.Name = "管理员" Then
DataTables("劳务人员登记表").LoadFilter = ""
Else
DataTables("劳务人员登记表").LoadFilter = "承包人机构 in ('" & User.Roles.replace(",","','") & "') or 监理机构 in ('" & User.Roles.replace(",","','") & "') or 业主机构 in ('" & User.Roles.replace(",","','") & "') or 劳务队负责人 in ('" & User.Roles.replace(",","','") & "') "
End If
DataTables("劳务人员登记表").LoadOver="工种"
DataTables("劳务人员登记表").LoadReverse = True
DataTables("劳务人员登记表").LoadTop= 10
DataTables("劳务人员登记表").Load
Tables("劳务人员登记表").sort="工种"
在表的BeforeLoad事件设如下代码：
If User.Group = "承包人"
Dim fl As String = "承包人机构 in ('" & User.Roles.replace(",","','") & "') or 劳务队负责人 in ('" & User.Roles.replace(",","','") & "') "
If e.DataTable.LoadFilter = "" Then
e.DataTable.LoadFilter = fl
ElseIf e.DataTable.LoadFilter.IndexOf(fl) < 0 Then
e.DataTable.LoadFilter = e.DataTable.Loadfilter & " And " & fl
End If
End If
加好友 
发短信
Post By：2018/6/23 8:45:00 [只看该作者]
此主题相关图片如下：111111.png
