以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  集合如何作为生成目录树的筛选条件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161084)
--  作者：guosheng
--  发布时间：2021/3/5 9:54:00
--  集合如何作为生成目录树的筛选条件
Dim _Department As New List(Of String)

_Department.Add("设计部")

_Department.Add("人事部")


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


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

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


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

[此贴子已经被作者于2021/3/5 9:54:49编辑过]
--  作者：有点蓝
--  发布时间：2021/3/5 9:58:00
--  
Dim _Department As New List(Of String)

_Department.Add("设计部")

_Department.Add("人事部")


dim str as string = "1=2 "
for each s as string in _Department
str = str & " or " & 部门=\'" & s & "\'
next
msgbox(str )
trv.GenerateTree("主项工作执行情况表","分类表达式","任务名称", ".",str )
--  作者：guosheng
--  发布时间：2021/3/5 10:32:00
--  
 dim _Department as string="设计部,人事部"

"部门 in (\'" & _Department.Replace(",", "\',\'") & "\')"     带有in的参数能做为目录树的筛选条件吗
--  作者：有点蓝
--  发布时间：2021/3/5 10:34:00
--  
可以，试试不就知道了