Tables("主项工作查询_table1").filter="责任部门 in ('" & _Department.Replace(",", "','") & "') or Functions.Execute("筛选相关部门",_Department,相关部门) =True"
内部函数名:筛选相关部门
第一参数为全局变量:_Department
责任部门 和 相关部门:为表字段名称
上句代码,提示编译错误,应为语句结束。