Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]把代码改为从后台筛选


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

主题：[求助]把代码改为从后台筛选
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/17 15:39:00 [显示全部帖子]

......

Forms("退款记载结果").Controls("Table1").Table.filter = filter1 & " [F4415]>0"

改为

Dim dt As DataTable = Forms("退款记载结果").Controls("Table1").Table.DataTable
dt.LoadFilter = filter1 & " [F4415]>0"
dt.Load
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/17 16:34:00 [显示全部帖子]

datatables(源表名).LoadFilter =""
datatables(源表名).Load
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/17 16:47:00 [显示全部帖子]

窗口AfterClose事件

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


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/17 17:23:00 [显示全部帖子]

窗口AfterClose事件2句代码就可以

datatables(源表名).LoadFilter =""
datatables(源表名).Load
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/17 18:01:00 [显示全部帖子]

msgbox弹出最终的筛选条件看看

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


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/17 21:00:00 [显示全部帖子]

1、筛选条件所有关键字前后豆加上空格
2、Like '*2011*'  所有星号改为%号试试：Like '%2011&' 
3、确认数据库由此条件的记录
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/18 15:54:00 [显示全部帖子]

1.空格，如：[F4419]         Like     '*"           & .Value & "*'"
2.笔误，应该是Like‘%2011%’
3.就是说数据库到底有没有符合这个条件的数据？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/18 17:14:00 [显示全部帖子]

With Forms("退款记载结果").Controls("Table1").Table
    Forms("退款记载结果").Controls("label2").Text =  .Compute("sum(F4415)",.Filter)
End With
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/18 17:36:00 [显示全部帖子]


Tables("原来的表").Filter = ""
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/10/18 20:05:00 [显示全部帖子]

窗口副本表是怎么分页的

 回到顶部
总数 18 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.06738 秒, 5 次数据查询