以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求数字型和字符型同时筛选的代码 (http://foxtable.net/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 谢谢!
|