- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]excel报表页尾行求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113727)
-- 发布时间：2018/1/22 10:00:00
-- [求助]excel报表页尾行求助
设置了页尾行，因为有两个关联表，现在页尾行在每个关联表下面都出现了，我只要在最后一个关联表下面出来就可以了。多了，怎么整？
此主题相关图片如下：1.png
此主题相关图片如下：2.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:冲压制令单.xls |
-- 发布时间：2018/1/22 10:13:00
--
如果是父子孙这样的关联表，请这样设计
http://www.foxtable.com/webhelp/scr/1541.htm
-- 发布时间：2018/1/22 10:14:00
--
如果有问题，请上传实例测试。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:冲压制令单.xls |
-- 发布时间：2018/1/22 10:22:00
--
版主可能理解有误，我这个不是父子孙，我是一个父两个子。
[此贴子已经被作者于2018/1/22 10:25:34编辑过]
-- 发布时间：2018/1/22 11:06:00
--
又试了半天，感觉这个父子子子的，这个页尾行设置后，每个子表都会出来，没找到好办法。
-- 发布时间：2018/1/22 11:27:00
--
以下是引用ajie5211在2018/1/22 10:22:00的发言：
版主可能理解有误，我这个不是父子孙，我是一个父两个子。
[此贴子已经被作者于2018/1/22 10:25:34编辑过]
excel做不到这样的报表。
具体问题，上传实例测试。
-- 发布时间：2018/1/24 13:43:00
--
以下是引用有点甜在2018/1/22 11:27:00的发言：
双击制令单号，出来报表。
excel做不到这样的报表。
具体问题，上传实例测试。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.rar |
-- 发布时间：2018/1/24 14:57:00
--
没办法，处理不了。要不，你就生成报表以后，移除那些不符合的行
http://www.foxtable.com/webhelp/scr/2121.htm
-- 发布时间：2018/1/24 15:13:00
--
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