Foxtable(狐表)用户栏目专家坐堂 → 搜索的时候输入半角字符和*就会出错,全角就不会出错如何解决?


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

主题:搜索的时候输入半角字符和*就会出错,全角就不会出错如何解决?

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


加好友 发短信
等级:二尾狐 帖子:532 积分:4020 威望:0 精华:0 注册:2011/6/18 12:41:00
搜索的时候输入半角字符和*就会出错,全角就不会出错如何解决?  发帖心情 Post By:2012/2/2 17:02:00 [只看该作者]

如图

 


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

我这里相同的产品名称,类似的规格非常多。所以搜索的时候搜索规格会比较快得到结果。

比如规格是 120*0.03*20KG.

输入到120*  再往后就出错了。报错如下:

 


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

 

如果用全角字符来搜索就不会出错。但是我输入数据的时候基本上都不用全角字符。所以输入数据的时候用半角,搜索的时候用全角,非常的不方便。而且我录入的是半角,让我用全角来搜索,似乎也不合理。

 

textchanged代码如下:

 

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("草绳选产品_Table1")
tbl.Filter= ""
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl.filter = "chanpinname Like " & txt & " Or guige Like " & txt & " "
    tbl.Sort = "chanpinname desc,guige desc,danwei desc"
End If

 

 

以上问题如何解决呢?

[此贴子已经被作者于2012-2-2 17:04:50编辑过]

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/2/2 17:17:00 [只看该作者]

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("草绳选产品_Table1")
tbl.Filter= ""
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'*" & txt.Replace("*","[*]") & "*'"
    tbl.filter = "chanpinname Like " & txt & " Or guige Like " & txt & " "
    tbl.Sort = "chanpinname desc,guige desc,danwei desc"
End If

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


加好友 发短信
等级:二尾狐 帖子:532 积分:4020 威望:0 精华:0 注册:2011/6/18 12:41:00
  发帖心情 Post By:2012/2/2 17:30:00 [只看该作者]

谢谢!

我也是刚想到转换字符串。

 

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("草绳选产品_Table1")
tbl.Filter= ""
If txt = "" Then
    tbl.Filter = ""
Else

    txt = "'*" & strtowide(txt) & "*'"

    tbl.filter = "chanpinname Like " & txt & " Or guige Like " & txt & " "
    tbl.Sort = "chanpinname desc,guige desc,danwei desc"
End If


 回到顶部