以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何将checkedcomboBox中的多个值变成表的"or"筛选条件?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152634)

--  作者:chh2321
--  发布时间:2020/7/17 1:22:00
--  [求助]如何将checkedcomboBox中的多个值变成表的"or"筛选条件?
请教:如何将CheckedcomboBox中的多个值变成表的"or"筛选条件?

比如:CheckedcomboBox中出现name1,name2,name3,  ...

Dim names() as string = Forms("窗口1").Controls(CheckedcomboBox).Text.Split(",")
For each nm as string in names
     Filter = "name = \'" & nm & "\'"
     Filter = Filter & " or "
     Tables("窗口1_Table1").Filter = Filter
Next

上述代码总是报错,请教老师如何修改代码?


--  作者:y2287958
--  发布时间:2020/7/17 8:07:00
--  
Dim names() As String = Forms("窗口1").Controls(CheckedcomboBox).Text.Split(",")
Tables("窗口1_Table1").Filter = "name in (\'" & String.join("\',\'",names) & "\')"

--  作者:chh2321
--  发布时间:2020/7/17 10:47:00
--  

   谢谢,可以了!