以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求数字型和字符型同时筛选的代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=30379)

--  作者:SZDVYE
--  发布时间:2013/3/27 1:49:00
--  求数字型和字符型同时筛选的代码

狐爸,我想在同一个筛选框中同时能筛选字符,也能筛选数值,请问代码如何写?有没参考例子

我知道LIKE不能筛选数字型数据,但是查不到怎么改,请指点。

 

Dim txt6 As String = e.ComboBox.Text
Dim tbl6 As Table = Tables("报表")

If txt6 = "" Then
    tbl6.Filter = ""
Else
    txt6 = "\'*" & txt6 & "*\'"
    tbl6.Filter =  "单位 Like " & txt6 & " Or 金额 Like " & txt6
End If


--  作者:lsy
--  发布时间:2013/3/27 7:28:00
--  
>,<,=,>=,<=.
--  作者:FoxMan
--  发布时间:2013/3/27 7:46:00
--  

Dim txt6 As String =  e.sender.Text    \'没有e.ComboBox
Dim tbl6 As Table = Tables("报表")

If txt6 = "" Then
    tbl6.Filter = ""
Else
    txt6 = "\'*" & txt6 & "*\'"
    tbl6.Filter = "单位 Like " & txt6 & " Or  Convert([包1],\'System.String\') Like " & txt6
End If


--  作者:SZDVYE
--  发布时间:2013/3/29 22:35:00
--  

还是报错,我哪里出错了吗?

 


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

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

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

--  作者:e-png
--  发布时间:2013/3/29 22:53:00
--  

还是用你自己的:Dim txt6 As String = e.ComboBox.Text


--  作者:SZDVYE
--  发布时间:2013/3/31 1:14:00
--  
tbl6.Filter = "单位 Like " & txt6 & " Or  Convert(金额,System.String) Like " & txt6
谢谢!