主题：[求助][讨论]报表设计

弄三个sheet，分别生成表，然后拷贝成一张表

 

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("sheet1") '指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("sheet2")
Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("sheet3")

Ws1.UsedRange.Copy
ws3.Cells(1,1).Select
ws3.paste
Ws2.UsedRange.Copy
'ws3.Cells(1,Ws1.UsedRange.Columns.Count).Select '横向拷贝
ws3.Cells(Ws1.UsedRange.Rows.Count,1).Select '纵向拷贝
ws3.paste

'Wb.Save
app.Visible = True
'App.Quit

excel报表做不到你那样的设计，只能单独一个表或者父子表那样打印。

我添加一列合同号作为关联列,但是用关联打印的时候,订单明细都正常显示,但是出库明细只显示第一行,剩下三行不显示.就差一点点,唉

 

父子表的情况，就是一行对应多行的。

 

一个模板，只能打印父子情况，不能打印父子子子的情况。要分拆成 父子、父子、父子 这样设计，然后合并起来。

如果这样的话，很复杂啊，太麻烦了！谢谢！

麻烦帮忙写一个试试？

 

有什么麻烦的，就是做两个sheet，弄进去模板，然后生成报表，然后合并报表。

 

生成报表：http://www.foxtable.com/help/topics/1145.htm

 

合并报表：看11楼

 

 

http://www.foxtable.com/help/topics/1148.htm

 

这个代码放在按钮里面？