以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  筛选取消后如何返回到所选行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=16513)

--  作者:zh91888
--  发布时间:2012/2/16 12:02:00
--  筛选取消后如何返回到所选行
数据有1W行 每次筛选取消后都会返回到第一行 然后还要向下寻找所要筛选的数据
请教是否有办法可以筛选取消后返回到所筛选的内容行??
谢谢各位大师。。。

--  作者:狐狸爸爸
--  发布时间:2012/2/16 12:11:00
--  
目前没办法,除非自己做个取消筛选的按钮。
--  作者:zh91888
--  发布时间:2012/2/16 13:44:00
--  
狐爸您好~取消筛选按钮是否这样做?

Tables("表A").ApplyFilter = False

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

--  作者:狐狸爸爸
--  发布时间: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