以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  写了一段查找的代码,但是提示不对  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176060)

--  作者:Phoebe菲比
--  发布时间:2022/3/29 0:15:00
--  写了一段查找的代码,但是提示不对
以下是我写的代码:
Dim filter As String
Dim sts() As String = {"客户","订单编号"}
For Each st As String In sts
    Dim var As String = e.Form.Controls(st).value
    If var IsNot Nothing Then
        var = var.replace("*","[*]")
        If filter Is Nothing Then
            filter = st & " like \'*" & var & "*\'"
        Else
            filter = filter & " and " & st & " like \'*" & var & "*\'"
        End If
    End If
Next

和之前一个模块写的代码一模一样,但是没办法正确出结果,请指教。


--  作者:Phoebe菲比
--  发布时间:2022/3/29 0:16:00
--  
这是截图
图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20220329001431.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2022/3/29 8:35:00
--  
        If filter Is Nothing Then
            filter = st & " like \'%" & var & "%\'"
        Else
            filter = filter & " and " & st & " like \'%" & var & "%\'"
        End If


--  作者:Phoebe菲比
--  发布时间:2022/3/29 9:31:00
--  
今天试了下把 * 改成 % ,会正确显示结果了,昨晚是不能。
但是用msgbox测试还是会显示这种结果。

--  作者:Phoebe菲比
--  发布时间:2022/3/29 9:31:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20220329092928.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2022/3/29 9:43:00
--  
请上传实例说明
--  作者:Phoebe菲比
--  发布时间:2022/3/29 19:07:00
--  
麻烦蓝版帮我看看,谢谢。
--  作者:Phoebe菲比
--  发布时间:2022/3/29 19:08:00
--  
附件
--  作者:Phoebe菲比
--  发布时间:2022/3/29 19:08:00
--  
今天无法上传,出问题了。


--  作者:有点蓝
--  发布时间:2022/3/29 20:09:00
--  
附件不能大于2M,新建项目做个例子发上来,不要发整个项目