- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]窗口表多关键字查询 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144293)
-- 发布时间：2019/12/16 15:52:00
-- [求助]窗口表多关键字查询
在文本框中录入多组关键字，用“，”分隔，模糊查询含有（或）关键字的记录。
窗口中TextBox1控件中的TextChanged代码，提示列名“c.name”不对。
应该怎样修改？谢谢！
With e.Form.Controls("TextBox1")
If .text IsNot Nothing Then
Dim str As String = "1=2"
For Each s As String In .text.split(",")
If s > "" Then
For Each c As Col In Tables("查询_Table1").Cols
\'msgbox(c.name)
str &= " or c.name Like \'%" & s & "%\'"
Next
End If
Next
Tables("查询_Table1").Filter = str
End If
End With
-- 发布时间：2019/12/16 16:01:00
--
str &= " or " & c.name & " Like \'%" & s & "%\'"
-- 发布时间：2019/12/16 16:18:00
--
现在报这个错：
此主题相关图片如下：截屏图片 (1).jpg
-- 发布时间：2019/12/16 16:30:00
--
For Each c As Col In Tables("查询_Table1").Cols
If c.IsNumeric Then
str &= " or Convert(" & c.name & ", \'System.String\') Like \'%" & s & "%\'"
Else
str &= " or " & c.name & " Like \'%" & s & "%\'"
End If
Next
-- 发布时间：2019/12/16 18:26:00
--
这样报错，是什么原因？
此主题相关图片如下：截屏图片 (4).jpg
With e.Form.Controls("TextBox1")
If .text IsNot Nothing Then
Dim str As String = "1=2"
For Each s As String In .text.split(",")
If s > "" Then
For Each c As Col In Tables("查询_Table1").Cols
If c.IsNumeric Then
str &= " or Convert(" & c.name & " , \'System.String\') Like \'%" & s & "%\'"
Else
str &= " or " & c.name & " Like \'%" & s & "%\'"
End If
Next
End If
Next
Tables("查询_Table1").Filter = str
End If
End With
-- 发布时间：2019/12/16 18:57:00
--
这个是时间列问题，增加个时间列类型的判断吧。得学会融会贯通啊
-- 发布时间：2019/12/16 21:29:00
--
谢谢前辈指教！
光想现成的啦~
With e.Form.Controls("TextBox1")
If .text IsNot Nothing Then
Dim str As String = "1=2"
For Each s As String In .text.split(",")
If s > "" Then
For Each c As Col In Tables("查询_Table1").Cols
If c.IsNumeric OrElse c.IsDate Then
str &= " or Convert(" & c.name & " , \'System.String\') Like \'%" & s & "%\'"
Else
str &= " or " & c.name & " Like \'%" & s & "%\'"
End If
Next
End If
Next
Tables("查询_Table1").Filter = str
End If
End With
-- 发布时间：2019/12/16 22:02:00
--
假如我把筛选条件改为同时具备，将“or”改为“and”，为什么筛选不到数据？
With e.Form.Controls("TextBox1")
If .text IsNot Nothing Then
Dim str As String = "1=2"
For Each s As String In .text.split(",")
If s > "" Then
For Each c As Col In Tables("查询_Table1").Cols
If c.IsNumeric OrElse c.IsDate Then
str &= " and Convert(" & c.name & " , \'System.String\') Like \'%" & s & "%\'"
Else
str &= " and " & c.name & " Like \'%" & s & "%\'"
End If
Next
End If
Next
Tables("查询_Table1").Filter = str
End If
End With
-- 发布时间：2019/12/16 22:16:00
--
and 用：Dim str As String = "1=1"
or 用：Dim str As String = "1=2"
-- 发布时间：2019/12/16 22:35:00
--
也不行，老师给看看。
