以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  請問 兩個表要產生在同一報表上如何設計  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71271)
--  作者：tennis
--  发布时间：2015/7/8 14:27:00
--  請問 兩個表要產生在同一報表上如何設計

例: 某保險公司保戶C01有投保多個保險S1,S2 如何出保險單於該保戶

 

             表S1 表S2

      報表:

                C01  XXXXX  先生

                 地址XXXXXXXXXXXXXXXXXXX

 

            保費明細:      

              S1_FIELD1      S1_FIELD2     S1_FIELD3    S1_FIELD4 

              ...............      ...............      ..............     ..............

              ...............      ...............      ..............     ..............

                                                              合計:        ..............

 

                            S2_field1       S2_field2        S2_field3     

                           ..............      ...............      ..............     

                           ..............      ...............      ..............     

                                                      合計:        ..............

 

                                               C01保戶總金額:...............

 

                  說明: S1_FIELD5

                          S2_FIELD4

 

      

                                      

 

     

--  作者：大红袍
--  发布时间：2015/7/8 14:29:00
--  
 把两表合并成一表后设置报表。
--  作者：大红袍
--  发布时间：2015/7/8 14:30:00
--  

Union all

 

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

 
--  作者：tennis
--  发布时间：2015/7/9 10:11:00
--  
合併資料沒問題,問題是報表如何設計,因為各有其明細行且區塊大小不一 ,有範例嗎?
--  作者：大红袍
--  发布时间：2015/7/9 10:13:00
--  

 报表的话，就各个报表分别生成，然后复制粘贴到一个excel里面去。
--  作者：大红袍
--  发布时间：2015/7/9 10:14:00
--  

参考代码，几个sheet的拷贝粘贴，word一样。去论坛搜索MSword的代码

 

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
--  作者：tennis
--  发布时间：2015/7/9 10:18:00
--  
3Q!! 我試試看.