以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  like 表达式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=20626)

--  作者:SZDVYE
--  发布时间:2012/6/14 1:13:00
--  like 表达式

表达式报错了,请指点:

表“支票”中,想筛选出收款人列(字符型) 或日期列(日期时间型) 或支票号码列(字符型) 或金额列(双精度小数),为组合框内的指定录入内容

Dim txt4 As String = e.ComboBox.Text

Dim tbl4 As Table = Tables("支票")

 

If txt4 = "" Then

Tbl4.Filter = ""

Else

Txt4 = "\'*" & txt4 & "*\'"

Tbl4.Filter =  "支票号码 Like " & txt4 & " Or 收款人 Like " & txt4 & Or 金额 Like " & txt4 & " Or 日期 Like " & txt4

End If

 


--  作者:狐狸爸爸
--  发布时间:2012/6/14 6:54:00
--  
like只是针对字符型,数值日期不存在Like,数值和日期只能=,  >,  <, <>,  >=,   <=
--  作者:hp001
--  发布时间:2012/6/14 6:56:00
--  
怎么早啊,狐爸
--  作者:SZDVYE
--  发布时间:2012/6/14 23:36:00
--  
3楼有什么疑问啊?
--  作者:SZDVYE
--  发布时间:2012/6/14 23:54:00
--  
狐狸爸爸,还是没有琢磨出表达式该怎么写?请指教。
--  作者:blackzhu
--  发布时间:2012/6/15 7:27:00
--  

Dim txt4 As String = e.Sender.Text

Dim tbl4 As Table = Tables("支票")

 

If txt4 = "" Then

Tbl4.Filter = ""

Else

Txt4 = "\'*" & txt4 & "*\'"

Tbl4.Filter =  "支票号码 Like " & txt4 & " Or 收款人 Like " & txt4 & Or 金额 Like " & txt4 & " Or 日期 Like " & txt4

End If


  首先肯定错,已改了下.第二,数值,日期等不能模糊筛选.


--  作者:程兴刚
--  发布时间:2012/6/15 7:35:00
--  
改了还是错,楼主应该发文件,想知道您的具体需求!
--  作者:SZDVYE
--  发布时间:2012/6/16 1:17:00
--  

文件已经上传,麻烦老师们了。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


--  作者:SZDVYE
--  发布时间:2012/6/16 14:48:00
--  

老师,请问我的问题可以帮我解决吗?


--  作者:狐狸爸爸
--  发布时间:2012/6/16 15:04:00
--  

Dim txt4 As String = e.ComboBox.Text

Dim tbl4 As Table = Tables("支票")

If txt4 = "" Then

    Tbl4.Filter = ""

Else

    Txt4 = "\'*" & txt4 & "*\'"

    Tbl4.Filter =  "支票号码 Like " & txt4 & " Or 收款人 Like " & txt4

End If