主题：like 表达式

表达式报错了，请指点：

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

Dim txt4 As String = e.ComboBox.Text

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

 

If txt4 = "" Then

Tbl4.Filter = ""

Else

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

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

End If

 

like只是针对字符型，数值日期不存在Like，数值和日期只能=,  >,  <, <>,  >=,   <=

怎么早啊，狐爸

3楼有什么疑问啊？

狐狸爸爸，还是没有琢磨出表达式该怎么写？请指教。

Dim txt4 As String = e.Sender.Text

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

 

If txt4 = "" Then

Tbl4.Filter = ""

Else

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

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

End If

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

改了还是错，楼主应该发文件，想知道您的具体需求！

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

老师，请问我的问题可以帮我解决吗？

Dim txt4 As String = e.ComboBox.Text

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

If txt4 = "" Then

    Tbl4.Filter = ""

Else

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

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

End If