以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79278)
--  作者：浙江仔
--  发布时间：2015/12/28 13:20:00
--  [求助]
我想用in来筛选，文本框输入包含多个id的字符串，以“，”分割
测试：
Dim Lst As New List(Of String)
Lst.Add("044A6124B4CB420E9359D63D5AD74078")
Lst.Add("20A285972D68488FAE30D97933D95B79")
Lst.Add("0AF0096262A344E8A93A124CE4C31CC4")

Dim Products As List(Of String)
Products.AddRange(v1)

Tables("企业规模sql").Filter="[enterprise_id] in lst "

提示：未将对象引用设置到对象的实例。

测试使用：
Dim v1() As String = {"044A6124B4CB420E9359D63D5AD74078","20A285972D68488FAE30D97933D95B79","0AF0096262A344E8A93A124CE4C31CC4"}
‘实际使用Dim v1() As String= e.Form.Controls("TextBox1").text.Split(",")
Dim Products As List(Of String)
Products.AddRange(v1)

Tables("企业规模sql").Filter="enterprise_id in Products "

也提示：未将对象引用设置到对象的实例。

这里in 不能用在filter中还是使用有问题，望指点！
--  作者：大红袍
--  发布时间：2015/12/28 14:16:00
--  

Dim str As String = "044A6124B4CB420E9359D63D5AD74078,20A285972D68488FAE30D97933D95B79,0AF0096262A344E8A93A124CE4C31CC4"
str = str.replace(",", "\',\'")

 

Tables("企业规模sql").Filter="enterprise_id in (\'" & str & "\')"