以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]数据转换  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172013)

--  作者:lgj716330
--  发布时间:2021/9/18 8:59:00
--  [求助]数据转换
Dim gzs() As String ={e.Form.Controls("dgzh").value}

for each gz as string in gzs
b.Filter = "摘要 like \'%" & gz & "%\'"
next

dgzh中有好几个项目,结果只取了其中一个,要怎么调整

--  作者:有点蓝
--  发布时间:2021/9/18 9:03:00
--  
Dim gzs() As String ={e.Form.Controls("dgzh").value}
dim s as string = "1=2 "
for each gz as string in gzs
 s = s & " or 摘要 like \'%" & gz & "%\'"
next
b.Filter = s


--  作者:lgj716330
--  发布时间:2021/9/18 12:44:00
--  
嗯,改成这样,可以了
Dim gzs As List(Of String)
gzs = DataTables("列表项目").GetValues("摘要","摘要 <> \'\'")
Dim s As String = "1=2"
For i As Integer = 0 To gzs.count -1
s= s & " Or (摘要 Like \'%" & gzs(i) & "%\' and 年份=" & N1 & " And 月份 = " & Y1 & ""
Next