like 表达式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → like 表达式

共有10166人关注过本帖树形打印复制链接主题：like 表达式

blackzhu

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2012/6/15 7:27:00 [显示全部帖子]

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

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

blackzhu

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57640 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2012/6/18 15:49:00 [显示全部帖子]

Dim drp As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim tbl As Table = Tables("窗口1_Table1")
If drp.Text = "" Then '如果内容为空
    tbl.Filter = "" '显示所有客户
Else '否则根据输入内容进行模糊筛选
    Dim txt As String = "'*" & drp.Text & "*'"
    tbl.Filter = "客户ID Like " & txt & " Or 产品Id Like " & txt  & " Or 单价 = " & drp.Text
End If

日期的你研究一下吧.

下一主题 >> << 上一主题

主题：like 表达式