- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 筛选出错 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=16611)
-- 发布时间：2012/2/19 2:36:00
-- 筛选出错
那位帮忙解决一下出错的问题。编号例为整数例。应该怎么改，那位高手帮忙。实在没办法了。
Dim txt As Object = RibbonTabs("我的工作")("日期")("工具栏2")("组合框1").text
If CurrentTable Is Tables("支出明细") Then
Dim tb As Table = Tables("支出明细")
If txt = "" Then
tb.filter = ""
Else
txt = "\'*" & txt & "*\'"
tb.filter = "编号 Like " & txt & " Or 支出项目 Like " & txt & " Or 收款人 Like " & txt & " Or 支出账户 Like " & txt
End If
End If
-- 发布时间：2012/2/19 7:43:00
--
这样看看
tb.filter = "编号 Like " & txt.Trim("\'") & " …………
-- 发布时间：2012/2/19 10:06:00
-- 还是出错
If CurrentTable Is Tables("支出明细") Then
Dim txt As Object = RibbonTabs("我的工作")("日期")("工具栏2")("组合框1").text
Dim tb As Table = Tables("支出明细")
If txt = "" Then
tb.filter = ""
Else
txt = "\'*" & txt & "*\'"
tb.filter = "编号 Like " & txt.Trim("\'") & " Or 关单号 Like " & txt & " Or 支出项目 Like " & txt & " Or 收款人 Like " & txt & " Or 支出账户 Like " & txt
End If
End If
此主题相关图片如下：2012-02-19_10-04-07.jpg
-- 发布时间：2012/2/19 11:18:00
--
Output.Show("编号 Like " & txt.Trim("\'") & " Or 关单号 Like " & txt & " Or 支出项目 Like " & txt & " Or 收款人 Like " & txt & " Or 支出账户 Like " & txt )
再将结果贴出来看看
-- 发布时间：2012/2/19 14:26:00
-- c版主帮忙看看
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2012/2/19 14:49:00
--
数值型列不能用Like做比较的。
-- 发布时间：2012/2/19 14:58:00
--
用”=“也不行啊。那应该怎么办
[此贴子已经被作者于2012-2-19 14:59:37编辑过]
-- 发布时间：2012/2/19 20:51:00
--
加一bh字符表達式列(隐藏),表達式為[编号]:
Dim txt,bds,bm As String
Dim tb As Table = Tables("支出明细")
Dim Ls As String() ={"bh","关单号","支出项目","收款人","支出账户"} \'相關列
txt = RibbonTabs("功能区1").Groups("功能组1").Items("组合框1").text
If txt > "" Then
txt = " Like \'*" & txt & "*\'"
For Each bm In Ls
bds+ = " Or " & bm & txt
Next
bds = bds.substring(4)
End If
tb.filter = bds
[此贴子已经被作者于2012-2-19 21:10:17编辑过]
-- 发布时间：2012/2/20 11:14:00
-- 谢谢
谢谢
