| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- BeforeLoad 目录树数据条件 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=191083) |
| -- 作者：有点蓝 -- 发布时间：2024/3/27 8:28:00 -- 去掉e.DataTable.Load() |
| -- 作者：有点蓝 -- 发布时间：2024/3/27 13:34:00 -- 没有保留原有的筛选条件：http://www.foxtable.com/webhelp/topics/2057.htm |
| -- 作者：有点蓝 -- 发布时间：2024/3/27 16:19:00 -- 调试看看 msgbox(_UserRoles) If _UserRoles = "商务经理" Then\'如果用户分组是雇员 Dim fl As String = "[商务经理] = \'" & _UserName & "\'" 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 If _UserRoles = "销售主管" Then\'如果用户分组是雇员 Dim fl As String = "[销售主管] = \'" & _UserName & "\'" 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 msgbox(e.DataTable.LoadFilter)
|
| -- 作者：有点蓝 -- 发布时间：2024/3/27 17:18:00 -- msgbox弹出什么内容？ |