主题：同个账户，多个分组

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