以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请教一个关于分组汇总模式的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133643)

--  作者:1669607010
--  发布时间:2019/4/17 15:54:00
--  [求助]请教一个关于分组汇总模式的问题
[求助]请教一个关于分组汇总模式的问题
有个汇总是按货物大类、货物小类、货物名称三列进行分组汇总,现在的问题是表中某些行货物小类为空,这样生成汇总后,货物小类的汇总列没有用,且不美观,
现在想实现的是对于货物小类为空的行,按货物大类、货物名称进行分组汇总,对于货物小类不为空的行,按货物大类、货物小类、货物名称三列进行分组汇总,
还有就是能不能在分组汇总时对于只有一行数据的分组不进行汇总,当分组内数据多余一行时才进行汇总,哪位老师指导一下!


--  作者:有点甜
--  发布时间:2019/4/17 16:50:00
--  

 

你需要的这些,无法做到。

 

 


--  作者:1669607010
--  发布时间:2019/4/18 15:05:00
--  
甜老师,再请教一下,在点击分组汇总1完成汇总后,我想按条件隐藏一些汇总行,下面是代码,我想隐藏汇总列名" 小计"的汇总列,请问红的的代码应该怎么写啊?要如何获得汇总行的名称啊?如果按下面的代码的话就把外协领料单位名称的汇总列全部隐藏了,请问如何只隐藏总列名" 小计"的汇总列啊?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:分组汇总.table



Dim t55 As Table = Tables("染色毛领料汇总")
Dim c As Col = t55.Cols(t55.ColSel)
For i55 As Integer = 0 To t55.Rows.count(True) -1
    If t55.Rows(i55,True).IsGroup AndAlso t55.Rows(i55,True).Level=1 AndAlso c.Name <> " 小计"  Then
        t55.grid.Rows(i55+t55.HeaderRows).visible = False
    End If
Next

--  作者:有点甜
--  发布时间:2019/4/18 16:06:00
--  
Dim t55 As Table = Tables("染色毛领料汇总")
Dim c As Col = t55.Cols(0)
For i55 As Integer = 0 To t55.Rows.count(True) -1
    If t55.Rows(i55,True).IsGroup AndAlso t55.Rows(i55,True).Level=1 AndAlso t55.Rows(i55,True)(c) = " 小计"  Then
        t55.grid.Rows(i55+t55.HeaderRows).visible = False
    End If
Next

--  作者:1669607010
--  发布时间:2019/4/18 16:16:00
--  
谢谢甜老师指导,完美解决!