Foxtable(狐表)用户栏目专家坐堂 → 写了一段查找的代码,但是提示不对


  共有3599人关注过本帖树形打印复制链接

主题:写了一段查找的代码,但是提示不对

美女呀,离线,留言给我吧!
Phoebe菲比
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:158 积分:998 威望:0 精华:0 注册:2021/8/17 15:39:00
写了一段查找的代码,但是提示不对  发帖心情 Post By: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菲比
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:158 积分:998 威望:0 精华:0 注册:2021/8/17 15:39:00
  发帖心情 Post By:2022/3/29 0:16:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107479 积分:546674 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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菲比
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:158 积分:998 威望:0 精华:0 注册:2021/8/17 15:39:00
  发帖心情 Post By:2022/3/29 9:31:00 [只看该作者]

今天试了下把 * 改成 % ,会正确显示结果了,昨晚是不能。
但是用msgbox测试还是会显示这种结果。

 回到顶部
美女呀,离线,留言给我吧!
Phoebe菲比
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:158 积分:998 威望:0 精华:0 注册:2021/8/17 15:39:00
  发帖心情 Post By:2022/3/29 9:31:00 [只看该作者]


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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107479 积分:546674 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/29 9:43:00 [只看该作者]

请上传实例说明

 回到顶部
美女呀,离线,留言给我吧!
Phoebe菲比
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:158 积分:998 威望:0 精华:0 注册:2021/8/17 15:39:00
  发帖心情 Post By:2022/3/29 19:07:00 [只看该作者]

麻烦蓝版帮我看看,谢谢。

 回到顶部
美女呀,离线,留言给我吧!
Phoebe菲比
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:158 积分:998 威望:0 精华:0 注册:2021/8/17 15:39:00
  发帖心情 Post By:2022/3/29 19:08:00 [只看该作者]

附件

 回到顶部
美女呀,离线,留言给我吧!
Phoebe菲比
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:158 积分:998 威望:0 精华:0 注册:2021/8/17 15:39:00
  发帖心情 Post By:2022/3/29 19:08:00 [只看该作者]

今天无法上传,出问题了。


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107479 积分:546674 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/29 20:09:00 [只看该作者]

附件不能大于2M,新建项目做个例子发上来,不要发整个项目

 回到顶部
总数 16 1 2 下一页