Excel报表分组统计1 : 当某分组在分页时, 不满行数的怎样补空行? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：未命名1.jpg

[此贴子已经被作者于2010-7-23 19:04:09编辑过]

另外, 当没页有小计时::::::帮看看我的1/2楼的模板设置有什么问题吗????

此主题相关图片如下：未命名2.jpg

[此贴子已经被作者于2010-7-23 19:46:03编辑过]

以下是引用czy在2010-7-23 20:34:00的发言：

按帮助中说应该是-5，不过设置后行是增加了，却跑到最后面去了。

就是这样的, 帮助中对只分页不分组的有效~ 呵呵

以下是引用狐狸爸爸在2010-7-23 21:06:00的发言：

不关我的事啊，页尾本来就应该在分组尾的后面啊，在设计模板的时候，FooterRow应该放在GroupFooter之后的

呵呵.. 前后没有什么区别的````````````````` 结果都一样啊你试一试看吧............

[此贴子已经被作者于2010-7-23 21:40:29编辑过]

还有 1 楼的问题: 帮看看呀~

以下是引用狐狸爸爸在2010-7-25 17:36:00的发言：

对结果是没有影响，只是让结果和模板看起来一致。

至于补空行，不就是-5这样设置就行吗。

[此贴子已经被作者于2010-7-25 17:36:49编辑过]

1、看起来怎么一致呢? PD01产品的总计行跑到该产品最后一页的小计行前面去了呀!

2、补空行没有针对分组（产品）来补的，而是对所有行，即只在所有产品的最后一页进行了补空行，而且这最后一页都乱套了啊～

附上模板您测试吧～

下载信息 [文件大小：下载次数： ]
点击浏览该文件:分组统计1.rar

[此贴子已经被作者于2010-7-25 19:37:34编辑过]

有三个关键点,谁看懂了吗?
Dim Book As New XLS.Book(ProjectPath & "Attachments\分组统计1.xls") '打开模板
Book.Build() '生成细节区
Book.Save(ProjectPath & "Reports\分组统计1.xls") '保存工作簿

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(ProjectPath & "Reports\分组统计1.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim n As Integer
Dim Rg0 As MSExcel.Range = Ws.UsedRange
For i As Integer = 1 To Rg0.Cells(Rg0.Count).Row+5-1
If i > n
If Ws.Cells(i,1).value Like "*合计"

Dim Rg As MSExcel.Range = Ws.Range("A" & i+1)
Rg.EntireRow.Insert(MSExcel.XlInsertShiftDirection.xlShiftDown)

            Dim Rg1 As MSExcel.Range = Ws.Range("A" & i & ":" & "H" & i)
            Rg1.Cut(Ws.Range("A" & i+1))
            Rg1 = Ws.Range("A" & i+2 & ":" & "H" & i+2)
            Rg1.Cut(Ws.Range("A" & i))
            Rg1= Ws.Range("A" & i+2)
            Rg1.Entirerow.Delete(MSExcel.XlDirection.xlUp)
            n = i+2
        End If
    End If
Next
Wb.Save
App.Visible = True

主题：Excel报表 分组统计1 : 当某分组在分页时, 不满行数的怎样补空行?

主题：Excel报表分组统计1 : 当某分组在分页时, 不满行数的怎样补空行?