主题：[求助]excel报表页尾行求助

设置了页尾行，因为有两个关联表，现在页尾行在每个关联表下面都出现了，我只要在最后一个关联表下面出来就可以了。多了，怎么整？
此主题相关图片如下：1.png


此主题相关图片如下：2.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:冲压制令单.xls

如果是父子孙这样的关联表，请这样设计

 

http://www.foxtable.com/webhelp/scr/1541.htm

 

 

如果有问题，请上传实例测试。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:冲压制令单.xls

版主可能理解有误，我这个不是父子孙，我是一个父两个子。

又试了半天，感觉这个父子子子的，这个页尾行设置后，每个子表都会出来，没找到好办法。

 

excel做不到这样的报表。

 

具体问题，上传实例测试。

双击制令单号，出来报表。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.rar

没办法，处理不了。要不，你就生成报表以后，移除那些不符合的行

 

http://www.foxtable.com/webhelp/scr/2121.htm

 

Select Case e.Col.Name
    Case "制令单号"
        Dim fl As String = ProjectPath & "Reports\冲压制令单.xls"
        Dim Book As New XLS.Book(ProjectPath & "Attachments\冲压制令单.xls")
        '******建立主表与制令和出入的关联*********
        Relations.Add("制令关联",DataTables("冲压生产计划追踪表").DataCols("制令单号"),DataTables("冲压生产计划追踪表_Table1").DataCols("销售单号"),False,RelationPathEnum.none)
        Relations.Add("出入关联",DataTables("冲压生产计划追踪表").DataCols("制令单号"),DataTables("冲压生产计划追踪表_Table5").DataCols("制令单号"),False,RelationPathEnum.none)
        '生成条码图片
        Dim Bar As New BarCodeBuilder
        Bar.Symbology = Barpro.Symbology.Code39
        Bar.Code = e.Row("制令单号")
        Bar.BarHeight = 8
        Bar.QuietZoneWidth = 2
        Bar.DisplayChecksum = False
        bar.SaveImage(ProjectPath & "Images\zldtxm.wmf",300)
        Book.Build() '生成细节区
        '****合并提示列*****
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Sheet.MergeCell(2,9,21,1)
        sheet(1,6).Value = Date.Now
        Book.Save(fl) '保存工作簿
        Relations.Delete("制令关联")
        Relations.Delete("出入关联")
        Dim App As New MSExcel.Application
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
       
        Dim Rg As MSExcel.Range = Ws.UsedRange
        For i As Integer = rg.Rows.count To 1 Step -1
            If ws.cells(i,1).text.contains("出库小计") AndAlso ws.cells(i,2).text = "0" Then
                ws.rows(i).Delete(MSExcel.XlDirection.xlUp) '下面的单元格上移
            End If
        Next
        App.Visible = True
End Select