Foxtable(狐表) → 用户栏目 → 专家坐堂 → 删选


  共有3206人关注过本帖树形打印复制链接

主题：删选
帅哥哟，离线，有人找我吗？
11112
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：108 积分：671 威望：0 精华：0 注册：2021/9/24 17:07:00 		删选  发帖心情 Post By：2021/10/4 17:16:00 [只看该作者]

老师您好我筛选的textbox1好像有点问题，可以帮我看一下吗，感觉两边的关键字筛选也有点问题
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试文本.txt
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110649 积分：563159 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/10/4 21:56:00 [只看该作者]

要实现什么样的逻辑，请使用文字说明

 回到顶部
帅哥哟，离线，有人找我吗？
11112
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：108 积分：671 威望：0 精华：0 注册：2021/9/24 17:07:00 		  发帖心情 Post By：2021/10/5 8:55:00 [只看该作者]

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

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110649 积分：563159 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/10/7 8:52:00 [只看该作者]

Dim Filter As String
With e.Form.Controls("开始")
    If .Value IsNot Nothing Then
        Filter = "记录时间 >= #" & .Value & "#"
    End If
End With
……

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 txt1 As String = e.Form.Controls("TextBox1").Text
Dim tb1 As Table = Tables("主控窗口_Table2")
Dim f1 As String = Filter
    Dim Values() As String
    Values = txt1.split(",")
    For Index As Integer = 0 To Values.Length - 1
        If f1 > "" Then f1= f1 & " and "
        Dim txt As String =Values(Index)
        txt = "'%" & txt & "%'"
        f1= f1 & "(店铺名称 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 & ")"
        
    Next

Dim Filter2 As String
With e.Form.Controls("开始2")
    If .Value IsNot Nothing Then
        Filter2 = Filter2 & "记录时间 >= #" & .Value & "#"
    End If
End With
……

With e.Form.Controls("处理人2")
    If .Value IsNot Nothing Then
        If Filter2 >"" Then
            Filter2 = Filter2 & " And "
        End If
        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 = Filter2

    Dim Values() As String
    Values = txt2.split(",")
    For Index As Integer = 0 To Values.Length - 1
        If f3 > "" Then f3= f3 & " and "
        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 & ")"
        
    Next


If f1 > "" AndAlso f3 > "" Then
    Tables("主控窗口_Table2").Filter = "(" & f1 & ") or (" & f3 & ")"
Else
    If f1 > "" Then
        Tables("主控窗口_Table2").Filter = f1
    ElseIf f3> "" Then
        Tables("主控窗口_Table2").Filter = f3
    else    
        Tables("主控窗口_Table2").Filter = ""
    End If
End If
[此贴子已经被作者于2021/10/7 11:11:51编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
11112
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：108 积分：671 威望：0 精华：0 注册：2021/9/24 17:07:00 		  发帖心情 Post By：2021/10/7 11:01:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：wechat 圖片_20211007105942.png
图片点击可在新窗口打开查看
老师现在关键字报错这个，老师麻烦帮我看一下   Filter2关键字那里
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:筛选.txt

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110649 积分：563159 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/10/7 11:13:00 [只看该作者]

重新看4楼

 回到顶部
帅哥哟，离线，有人找我吗？
11112
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：108 积分：671 威望：0 精华：0 注册：2021/9/24 17:07:00 		  发帖心情 Post By：2021/10/7 11:29:00 [只看该作者]

老师用四楼的代码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
这些都删选不了，只能筛选关键字了现在，而且关键字也只能筛选两者并集
 回到顶部
帅哥哟，离线，有人找我吗？
11112
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：108 积分：671 威望：0 精华：0 注册：2021/9/24 17:07:00 		  发帖心情 Post By：2021/10/7 11:31:00 [只看该作者]

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
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 & ")"
        
    Next
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 把她改成这个只能筛选一个关键字，多个就报错
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110649 积分：563159 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/10/7 11:33:00 [只看该作者]

在认真看看4楼。搞不定就上传实例
[此贴子已经被作者于2021/10/7 11:32:54编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
11112
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：108 积分：671 威望：0 精华：0 注册：2021/9/24 17:07:00 		  发帖心情 Post By：2021/10/7 11:47:00 [只看该作者]

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

 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07422 秒, 6 次数据查询