以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]《开发宝典》P464下部代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=130546)
--  作者：海蓝服务
--  发布时间：2019/1/24 19:31:00
--  [求助]《开发宝典》P464下部代码
《开发宝典》P464下部代码

If e.KeyCode = Keys.Enter Then
    Dim s As String = e.Sender.Text
    Dim f As String
    Dim ss As String() = s.Split(",")
    
    For Each  t As String In ss
        f = f & "or 产品名称 Like \' % " & t & " % \' "
    Next
    f = f.Remove(0,4)
    With  DataTables("查询")
        .LoadFilter = f
        .Load()
    End With
End If

运行后 显示  “错误所在事件：加载[查询]失败!
                   详细错误信息：
                   至少一个参数没有被指定值。”

感谢，版主   @有点甜    我知道了   
 f = f.Remove(0,4)   是用来移除  
 f = f & "or 产品名称 Like \' % " & t & " % \' "  这查询语句  最终查询时多余的"空格or空格 的

但是。。。  经过修改之后，错误是不报了，但是按下Enter 后没有了任何反应。
 晕！！！

[此贴子已经被作者于2019/1/27 12:18:59编辑过]
--  作者：有点甜
--  发布时间：2019/1/25 10:46:00
--  

改成

 

    For Each  t As String In ss
        f = f & " or 产品名称 Like \'%" & t & "%\' "
    Next
    f = f.substring(4)
    msgbox(f)