Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]取消查询按钮


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

主题：[求助]取消查询按钮
帅哥哟，离线，有人找我吗？
gihilli
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：68 积分：540 威望：0 精华：0 注册：2021/5/10 19:52:00 		[求助]取消查询按钮  发帖心情 Post By：2021/5/26 16:48:00 [显示全部帖子]

请问一下，如何实现点击这个“取消查询”按钮后，表格还原成原来未筛选的样子
这个代码应该怎么实现呢？
图片点击可在新窗口打开查看

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


加好友 发短信
等级：幼狐 帖子：68 积分：540 威望：0 精华：0 注册：2021/5/10 19:52:00 		  发帖心情 Post By：2021/5/26 16:59:00 [显示全部帖子]

不行喔，我在按钮的单击事件里设置了，但还是点了没有反应，

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


加好友 发短信
等级：幼狐 帖子：68 积分：540 威望：0 精华：0 注册：2021/5/10 19:52:00 		  发帖心情 Post By：2021/5/26 17:05:00 [显示全部帖子]

程序发生错误了
图片点击可在新窗口打开查看

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


加好友 发短信
等级：幼狐 帖子：68 积分：540 威望：0 精华：0 注册：2021/5/10 19:52:00 		  发帖心情 Post By：2021/5/26 17:17:00 [显示全部帖子]

在“取消查询”按钮中，写了这个代码Tables("售后录入记录").ApplyFilter = not Tables("售后录入记录").ApplyFilter
但是呢，表格还是没有还原成原来的样子，而是在查询后的样子
请问一下这个问题应该要怎么解决呢？

图片点击可在新窗口打开查看
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
gihilli
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：68 积分：540 威望：0 精华：0 注册：2021/5/10 19:52:00 		  发帖心情 Post By：2021/5/27 9:11:00 [显示全部帖子]

查询按钮的代码是：
Dim d1 As Date = e.Form.Controls("DateTimePicker1").Value
Dim d2 As Date = e.Form.Controls("DateTimePicker2").Value
If d1 = Nothing Or d2 = Nothing Then
MessageBox.Show("起始日期和结束日期不能为空!","友情提醒",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Else
    With DataTables("售后录入记录")
        .LoadFilter = "日期>=#" & d1 & "# and 日期<=#" & d2 & "#"
        .Load()
    End With
End If
这个查询按钮的功能还没做完的
图片点击可在新窗口打开查看

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


加好友 发短信
等级：幼狐 帖子：68 积分：540 威望：0 精华：0 注册：2021/5/10 19:52:00 		  发帖心情 Post By：2021/5/27 9:18:00 [显示全部帖子]

图片点击可在新窗口打开查看

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


加好友 发短信
等级：幼狐 帖子：68 积分：540 威望：0 精华：0 注册：2021/5/10 19:52:00 		  发帖心情 Post By：2021/5/27 9:19:00 [显示全部帖子]

就是想要实现如图上面的一些功能效果

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


加好友 发短信
等级：幼狐 帖子：68 积分：540 威望：0 精华：0 注册：2021/5/10 19:52:00 		  发帖心情 Post By：2021/5/27 10:34:00 [显示全部帖子]

还有一个问题，想对这个逻辑列进行一个模糊筛选，但是出现报错了
请问一下怎么处理呢？
图片点击可在新窗口打开查看

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


加好友 发短信
等级：幼狐 帖子：68 积分：540 威望：0 精华：0 注册：2021/5/10 19:52:00 		  发帖心情 Post By：2021/5/27 11:27:00 [显示全部帖子]

那么如果我要对逻辑列进行模糊筛选
应该怎么实现呢？

目前的模糊筛选是这一段代码
Dim txt As String = e.Form.Controls("TextBox").Text
Dim tbl As Table = Tables("录入窗口_Table1")
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 赠送折扣 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  & 
End If

想要把逻辑列也加进去模糊筛选
请问一下怎么实现呢?
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.10938 秒, 5 次数据查询