窗口查询也要加上权限条件
With e.Form.Controls("TextBox1")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "[已认证TP信息_行业类别] Like '%" & .Value & "%'"
End If
End With
If user.IsRole("TP客服机构分配") Then
ElseIf user.IsRole("TP客服小组分配") Then
If Filter > "" Then
Filter = Filter & " and "
End If
Filter = Filter & "客服分配_组长 = '" & User.name & "'"
Else
If Filter > "" Then
Filter = Filter & " and "
End If
Filter = Filter & "客服分配_客服人员 = '" & User.name & "'"
End If
If Filter > "" Then
DataTables("TP分配管理").LoadFilter = Filter
DataTables("TP分配管理").Load()
End If
加好友 
发短信
Post By：2020/3/23 17:37:00 [显示全部帖子]
