以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  角色授权代码异常求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147764)

--  作者：段虎成 --  发布时间：2020/3/23 16:57:00 --  角色授权代码异常求助 老师您好，我再用角色授权时，代码调试过程中出现异常，附件已上传，请老师帮忙看看，谢谢！  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:角色授权异常求助.zip

--  作者：有点蓝 --  发布时间：2020/3/23 17:37:00 --   窗口查询也要加上权限条件 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

--  作者：段虎成 --  发布时间：2020/3/23 17:45:00 --   谢谢老师！谢谢老师！