Foxtable(狐表)用户栏目专家坐堂 → [求助]根据用户分组名称,动态加载用户数据


  共有4012人关注过本帖树形打印复制链接

主题:[求助]根据用户分组名称,动态加载用户数据

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110766 积分:563762 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/14 9:54:00 [显示全部帖子]


Dim fl As String = ""
If _Usermdmc = "财务管理中心"
    fl = "[组织] = 'A事业部' And [组织] = 'B事业部' And [组织] = 'C事业部'"
ElseIf _Usermdmc = "A财务出纳"
    fl = "[组织] = 'A事业部'"
ElseIf _Usermdmc = "B财务出纳"
    fl = "[组织] = 'B事业部' And [组织] = 'C事业部'"
End If
msgbox(fl )

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110766 积分:563762 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/14 10:26:00 [显示全部帖子]

这个是msgbox提示,不是报错,自己去掉即可

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110766 积分:563762 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/14 10:51:00 [显示全部帖子]

If _Usermdmc = "财务管理中心"
    fl = "([组织] = 'A事业部' or [组织] = 'B事业部' or [组织] = 'C事业部')"
ElseIf _Usermdmc = "A财务出纳"
    fl = "[组织] = 'A事业部'"
ElseIf _Usermdmc = "B财务出纳"
    fl = "([组织] = 'B事业部' or [组织] = 'C事业部')"
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110766 积分:563762 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/14 11:38:00 [显示全部帖子]

……
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

msgbox(e.DataTable.LoadFilter) ‘这里弹出什么条件?’

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110766 积分:563762 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/12/14 13:23:00 [显示全部帖子]

少括号,请认真看6楼代码

 回到顶部