Foxtable(狐表)用户栏目专家坐堂 → [求助]不能搜索包含*键的字段怎么解决?


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

主题:[求助]不能搜索包含*键的字段怎么解决?

帅哥哟,离线,有人找我吗?
yacity
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:532 积分:4020 威望:0 精华:0 注册:2011/6/18 12:41:00
[求助]不能搜索包含*键的字段怎么解决?  发帖心情 Post By:2019/12/28 17:15:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:自定义录入界面之三.table

我们是塑料包装行业,产品的材料就几种,但是规格很多种,多达2千多种,规格都是类似  长*宽*厚度 (如20*30*0.05等)表格实际使用中只有按规格才能快速查找出需要的产品。
2014年以前的版本支持搜索包含*的字段,后来更新后就不支持了。
请问如何解决?
最好能用 like。

代码如下:

2、将窗口的DropDownOpened事件代码设置为:

Dim txt As String = e.Form.DropDownBox.Text
Dim
 tbl As Table = Tables("窗口1_Table1")
If
 txt = "" Then
    
tbl.Filter = ""
Else

    txt = 
"'%" & txt & "%'"
    tbl.Filter = 
"客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End
 If
e.Form.DropDownBox.
Select() 
'将输入焦点返回下拉列表框



2、将订单表的ChangeEdit事件代码设置为:

If e.Col.Name = "客户ID" Then '如果编辑的是客户ID列
    If e.Col.DroppedDown Then '如果下拉窗口已经打开
        
Dim tbl As Table = Tables("窗口1_Table1"
        If
 e.Text = "" Then 
'如果内容为空
            tbl.Filter = "" 
'显示所有客户
        
Else '否则根据输入内容进行模糊筛选
            
Dim txt As String = "'%" & e.Text & "%'"
            tbl.Filter = 
"客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
        End
 
If
    
End If
End
 If


错误提示如下
Like 运算符中出错: 字符串模式“%12*1%”无效。


图片点击可在新窗口打开查看此主题相关图片如下:7.jpg
图片点击可在新窗口打开查看



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


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

参考:http://www.foxtable.com/webhelp/topics/0102.htm

txt = "'%" & txt.replace("*","[*]") & "%'"

Dim txt As String = "'%" & e.Text.replace("*","[*]") & "%'"

 回到顶部