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

老师您好我筛选的textbox1好像有点问题，可以帮我看一下吗，感觉两边的关键字筛选也有点问题

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试文本.txt

老师我要的效果是开始结束....关键字是并集的然后呢开始1 结束1 关键字1.。。。。是并集就是and ，然后两者条件满足的时候是交集的，就好像这个Tables("主控窗口_Table2").Filter = "(" & Filter & ") or (" & Filter2 & ")"

此主题相关图片如下：wechat 圖片_20211007105942.png

老师现在关键字报错这个，老师麻烦帮我看一下 Filter2关键字那里

下载信息 [文件大小：下载次数： ]
点击浏览该文件:筛选.txt

老师用四楼的代码1.单条查询没有反应，2.With e.Form.Controls("店铺名称")

If .Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "店铺名称 = '" & .Value & "'"

End If

End With

这些都删选不了，只能筛选关键字了现在，而且关键字也只能筛选两者并集

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

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

Dim f3 As String = Filter2

If Filter2 > "" Then

If f3>"" Then

f3 = "(" & f3 & ") and (" & Filter2 & ")"

Else

f3 = Filter2

End If

Dim Values1() As String

Values1 = txt2.split(",")

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

If f3 > "" Then f3= f3 & " and "

Dim txt As String =Values1(Index)

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

Filter2= 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 & ")"

If Filter > "" AndAlso Filter2 > "" Then

Tables("主控窗口_Table2").Filter = "(" & Filter & ") and (" & Filter2 & ")"

Else

If Filter > "" Then

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

ElseIf Filter2> "" Then

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

End If

End If 把她改成这个只能筛选一个关键字，多个就报错

老师帮我看一下把，我真的不是很懂

下载信息 [文件大小：下载次数： ]
点击浏览该文件:33133.zip

主题：删选