主题：集合如何作为生成目录树的筛选条件

_Department.Add("设计部")

_Department.Add("人事部")

表的“部门”为单值的字段，即：为_Department的1个元素值

以下为伪代码   阴影部分的代码该怎么改啊？（如果集合不方便以下比较，应该用什么变量啊）

Dim str1 As String="部门='设计部' or 部门='人事部'"

trv.GenerateTree("主项工作执行情况表","分类表达式","任务名称", ".",str1)