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


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

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


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

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("主控窗口_Table2")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "店铺名称 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
 回到顶部
帅哥哟，离线，有人找我吗？
11112
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师您好，我想咨询一下关键字筛选的一个小问题，就是如果我有多个关键字要在TextBox1的框里筛选嘛，能不能就是已，隔开筛选得出结果

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


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：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

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


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

emmm遍历了就可以or组合在一起吗

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


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

测试咯，有问题再说

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


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

Dim txt1 As String = e.Form.Controls("TextBox1").Text
Dim Values() As String
Values = txt1.split(",")
For Index As Integer = 0 To Values.Length - 1
    
    Dim txt As String =Values(Index)
    Dim tbl As Table = Tables("主控窗口_Table2")
    If txt = "" Then
        tbl.Filter = ""
    Else
        txt = "'%" & txt & "%'"
        tbl.Filter = "店铺名称 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
Next
 回到顶部
帅哥哟，离线，有人找我吗？
11112
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

两个条件在关键字筛选不出

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


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：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
        
Next
    End If
msgbox(f)
tbl.Filter = f
 回到顶部
帅哥哟，离线，有人找我吗？
11112
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

这个是不是改个变量
图片点击可在新窗口打开查看此主题相关图片如下：112.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：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 & "%'"
        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
        
    Next
    msgbox(f)
    tbl.Filter = f
End If
 回到顶部
总数 17 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.04297 秒, 4 次数据查询