Foxtable(狐表)用户栏目专家坐堂 → 筛选取消后如何返回到所选行


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

主题:筛选取消后如何返回到所选行

帅哥哟,离线,有人找我吗?
zh91888
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:4 积分:102 威望:0 精华:0 注册:2012/2/16 11:58:00
筛选取消后如何返回到所选行  发帖心情 Post By:2012/2/16 12:02:00 [只看该作者]

数据有1W行 每次筛选取消后都会返回到第一行 然后还要向下寻找所要筛选的数据
请教是否有办法可以筛选取消后返回到所筛选的内容行??
谢谢各位大师。。。

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/2/16 12:11:00 [只看该作者]

目前没办法,除非自己做个取消筛选的按钮。

 回到顶部
帅哥哟,离线,有人找我吗?
zh91888
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:4 积分:102 威望:0 精华:0 注册:2012/2/16 11:58:00
  发帖心情 Post By:2012/2/16 13:44:00 [只看该作者]

狐爸您好~取消筛选按钮是否这样做?

Tables("表A").ApplyFilter = False

但是按了以后好像还是退还到第一行,无法退还到筛选前的行数。。。图片点击可在新窗口打开查看还有否其他办法处理?谢谢狐爸

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/2/16 13:55:00 [只看该作者]

Dim dr As  DataRow

If  Tables("xxx").Current IsNot Nothing Then

   dr= Tables("xxx").Current.DataRow

End If

Tables("xxx").ApplyFilter = False

If dr IsNot Nothing Then

   Tables("xxx").Position = Tables("xxx").Findrow(dr)

End If


 回到顶部