共9 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：筛选出错
1楼
bm 发表于：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
2楼
czy 发表于：2012/2/19 7:43:00这样看看
tb.filter = "编号 Like " & txt.Trim("'") & " …………
3楼
bm 发表于：2012/2/19 10:06:00If 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
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.jpg4楼
czy 发表于：2012/2/19 11:18:00Output.Show("编号 Like " & txt.Trim("'") & " Or 关单号 Like " & txt & " Or 支出项目 Like " & txt & " Or 收款人 Like " & txt & " Or 支出账户 Like " & txt )
再将结果贴出来看看
5楼
bm 发表于：2012/2/19 14:26:00
6楼
czy 发表于：2012/2/19 14:49:00数值型列不能用Like做比较的。
7楼
bm 发表于：2012/2/19 14:58:00用”=“也不行啊。那应该怎么办
[此贴子已经被作者于2012-2-19 14:59:37编辑过]
8楼
don 发表于：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编辑过]
9楼
bm 发表于：2012/2/20 11:14:00谢谢
共9 条记录, 每页显示 10 条, 页签:
[1]