以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  同个账户，多个分组  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=134139)
--  作者：有点甜
--  发布时间：2019/4/28 14:27:00
--  

 

With DataTables("任务分配_总任务库")
    Dim filter = "[任务状态] = \'待分配\'"
    Dim str = ""
    For Each s As String In _UserGroup.split(",")
        str &= " or [接收部门] = \'" & s & "\'"
    Next
    filter &= " and " & str.Substring(3)
    .LoadFilter = filter
    .LoadTop = 1000
    .LoadPage = 0
    .Load()
End With

 
--  作者：有点甜
--  发布时间：2019/4/28 15:33:00
--  

改成

 

With DataTables("任务分配_总任务库")
    Dim filter = "[任务状态] = \'待分配\'"
    Dim str = ""
    For Each s As String In _UserGroup.split(",")
        str &= " or [接收部门] = \'" & s & "\'"
    Next
    filter &= " and (" & str.Substring(3) & ")"
    .LoadFilter = filter
    .LoadTop = 1000
    .LoadPage = 0
    .Load()
End With
--  作者：有点甜
--  发布时间：2019/4/28 18:24:00
--  

 

If _UserGroup.contains("设备部") = false And _UserGroup.contains("管理员") = false And _UserGroup.contains("经理") = false   Then