主题：請問 兩個表要產生在同一報表上如何設計

例: 某保險公司保戶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

 

      

                                      

 

     

 把两表合并成一表后设置报表。

Union all

 

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

 

合併資料沒問題,問題是報表如何設計,因為各有其明細行且區塊大小不一 ,有範例嗎?

 报表的话，就各个报表分别生成，然后复制粘贴到一个excel里面去。

参考代码，几个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

3Q!! 我試試看.