- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]Like 合成表达式 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79032)
-- 发布时间：2015/12/23 10:24:00
-- [求助]Like 合成表达式
老师，
合成表达式写的不正确，麻烦您给看看。
Dim dd As String="北京,上海"
Dim Parts() As String
Dim str As String
Dim i As Integer
Dim txt As String="北京"
Parts=dd.Split(",")
For i=0 To Parts.Length-1
str &=Parts(i) & Like "& txt &"
Next
Output.Show(str)
Dim Parts() As String
Dim str As String
Dim i As Integer
Dim txt As String="北京"
Parts=dd.Split(",")
For i=0 To Parts.Length-1
str &=Parts(i) & Like "& txt &"
Next
Output.Show(str)
-- 发布时间：2015/12/23 10:28:00
--
直接说你想做什么
str &= Parts(i) & " Like " & txt
-- 发布时间：2015/12/23 10:35:00
--
其实是一个筛选条件，但是一直没写对，
Dim txt As String = "\'%" & e.Sender.Text & "%\'"
Dim str1 As String
Dim Parts()As String
Dim i As Integer
Parts=dr("取值显示列").Split(",")
For i=0 To Parts.Length-1
str &=Parts(i) & " Like " & txt & “Or"
Next
tbl.Filter =str
-- 发布时间：2015/12/23 10:48:00
--
Dim dd As String="北京,上海"
Dim Parts() As String
Dim str As String
Dim i As Integer
Dim txt As String = "\'%京%\'"
Parts=dd.Split(",")
For i=0 To Parts.Length-1
str &= " or " & Parts(i) & " Like " & txt
Next
Output.Show(str.substring(3))
-- 发布时间：2015/12/23 11:23:00
--
思维变得开阔了 多谢老师 辛苦您了 