以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]汇总之后产生的汇总行,要把其中某行删除怎么操作?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130613)

--  作者:新福星
--  发布时间:2019/1/26 23:13:00
--  [求助]汇总之后产生的汇总行,要把其中某行删除怎么操作?
如题谢谢
--  作者:2900819580
--  发布时间:2019/1/27 7:47:00
--  
Tables(窗体名称 & "_Table1").Current.Delete
--  作者:新福星
--  发布时间:2019/1/27 11:20:00
--  
是汇总之后产生的汇总行,不是当前行。
--  作者:有点甜
--  发布时间:2019/1/27 11:43:00
--  

隐藏,参考

 

Tables("表A").grid.Rows(12).visible = false

 

 

 

 


--  作者:新福星
--  发布时间:2019/1/27 21:17:00
--  

没有效果,程序如下:

 

For i As Integer = 0 To t.Rows.Count(True) - 1
    sr = t.Rows(i,True)
    If sr.IsGroup Then
        t.grid.Rows(i).visible = False
        \'     sr.visible=False
        \'sr.Delete
        Exit For
    End If
   
Next

意图是见到第一个汇总行删除或隐藏,其它的保留.没有效果。用删除也无效果!是哪有问题?


--  作者:有点甜
--  发布时间:2019/1/27 23:24:00
--  

改成

 

        t.grid.Rows(i+1).visible = False

 

或者


        t.grid.Rows(i+t.HeaderRows).visible = False


--  作者:新福星
--  发布时间:2019/1/28 6:55:00
--  

非常感谢 可以达到目的了. t.grid.Rows(i+t.HeaderRows).visible = False 没有任何问题.  t.grid.Rows(i+1).visible = False需要调整一下,把i+1改为i+2  即这个样子 t.grid.Rows(i+2).visible = False,这样关闭的行位置是正确的.