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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关键字筛选

共有2242人关注过本帖树形打印复制链接主题：关键字筛选

有点蓝

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

加好友

发短信

等级：超级版主帖子：107846 积分：548581 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/9/30 14:43:00 [显示全部帖子]

使用Split拆分，然后遍历：http://www.foxtable.com/webhelp/topics/0245.htm

有点蓝

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

加好友

发短信

等级：超级版主帖子：107846 积分：548581 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/9/30 14:54:00 [显示全部帖子]

测试咯，有问题再说

有点蓝

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

加好友

发短信

等级：超级版主帖子：107846 积分：548581 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/9/30 15:22:00 [显示全部帖子]

Dim txt1 As String = e.Form.Controls("TextBox1").Text

Dim tbl As Table = Tables("主控窗口_Table2")

If txt1 = "" Then

tbl.Filter = ""

Else

Dim Values() As String

Values = txt1.split(",")

dim f as string

For Index As Integer = 0 To Values.Length - 1

if f > "" then f = f & " or "

Dim txt As String =Values(Index)

txt = "'%" & txt & "%'"

f = f & "店铺名称 Like " & txt & " Or 单号 Like " & txt & " Or 处理人 Like " & txt & " Or 发货仓库 Like" & txt & " Or 物流公司 Like" & txt & " Or 赠送SKU Like" & txt & " Or 客户姓名 Like" & txt & " Or 系统单号 Like" & txt & " Or 产品类别 Like " & txt & " Or 配件SKU Like " & txt & " Or 产品SKU Like " & txt & " Or 联系方式 Like " & txt & " Or 追踪号 Like " & txt & " Or 处理方式 Like " & txt & " Or 备注 Like " & txt & " Or 回访 Like" & txt & " Or 状态 Like" & txt & " Or 寄送地址 Like " & txt & " Or [状况描述原因] Like " & txt

End If

msgbox(f)

tbl.Filter = f

有点蓝

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

加好友

发短信

等级：超级版主帖子：107846 积分：548581 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/9/30 15:38:00 [显示全部帖子]

Dim txt1 As String = e.Form.Controls("TextBox1").Text

Dim tbl As Table = Tables("主控窗口_Table2")

If txt1 = "" Then

tbl.Filter = ""

Else

Dim Values() As String

Values = txt1.split(",")

Dim f As String

For Index As Integer = 0 To Values.Length - 1

If f > "" Then f = f & " or "

Dim txt As String =Values(Index)

txt = "'%" & txt & "%'"

msgbox(f)

tbl.Filter = f

End If

有点蓝

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

加好友

发短信

等级：超级版主帖子：107846 积分：548581 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/9/30 16:10:00 [显示全部帖子]

Tables("table_3").Filter = Filter & “ and ” & f & ")"

有点蓝

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

加好友

发短信

等级：超级版主帖子：107846 积分：548581 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/9/30 16:47:00 [显示全部帖子]

到底要处理什么逻辑？这玩意其实也不复杂，就和小学括号的计算的优先级差不多。理解一下

(条件1 and 条件2) or (条件3 and 条件4) = (条件1 交集条件2) 并集 (条件3 交集条件4)

条件1 and (条件2 or 条件3) and 条件4 = 条件1 交集 (条件2 并集条件3) 交集条件4

自己输出最终条件核对，看是否符合需要的判断逻辑，合理加上括号进行处理

有点蓝

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

加好友

发短信

等级：超级版主帖子：107846 积分：548581 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/9/30 17:19:00 [显示全部帖子]

……

Filter2 = Filter2 & "处理人 = '" & .Value & "'"

End If

End With

Dim txt2 As String = e.Form.Controls("TextBox6").Text

Dim tb2 As Table = Tables("主控窗口_Table2")

dim f3 as string = Filter

if Filter2 > "" then

If f3>"" Then

f3 = "(" & f3 & ") or (" & Filter2 & ")"

else

f3 = Filter2

End If

end if

If txt2 = "" Then

tb2.Filter = ""

Else

Dim Values() As String

Values = txt2.split(",")

For Index As Integer = 0 To Values.Length - 1

If f3 > "" Then f3= f3 & " or "

Dim txt As String =Values(Index)

txt = "'%" & txt & "%'"

f3= f3 & "店铺名称 Like " & txt & " Or 单号 Like " & txt & " Or 处理人 Like " & txt & " Or 发货仓库 Like" & txt & " Or 物流公司 Like" & txt & " Or 赠送SKU Like" & txt & " Or 客户姓名 Like" & txt & " Or 系统单号 Like" & txt & " Or 产品类别 Like " & txt & " Or 配件SKU Like " & txt & " Or 产品SKU Like " & txt & " Or 联系方式 Like " & txt & " Or 追踪号 Like " & txt & " Or 处理方式 Like " & txt & " Or 备注 Like " & txt & " Or 回访 Like" & txt & " Or 状态 Like" & txt & " Or 寄送地址 Like " & txt & " Or [状况描述原因] Like " & txt

End If

Tables("主控窗口_Table2").Filter =f3

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

主题：关键字筛选