- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 搜索的时候输入半角字符和*就会出错，全角就不会出错如何解决？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=16109)
-- 发布时间：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: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
-- 发布时间：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