以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]行隐藏显示  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=154494)

--  作者:miaoqingqing
--  发布时间:2020/9/16 14:22:00
--  [求助]行隐藏显示
求助当前行,上面的行,全部隐藏,只保留当前行及下面的行显示

还求助,隐藏行后,全部显示行

--  作者:有点蓝
--  发布时间:2020/9/16 14:32:00
--  
隐藏:

Dim p As Integer = Tables("表A").position
For i As Integer =  p-1  To 0 Step -1
    Tables("表A").grid.Rows(i+1).visible = False
Next

显示:
Tables("表A").filter = ""
[此贴子已经被作者于2020/9/16 14:32:33编辑过]