原文: ActiveReports 報表應(yīng)用教程 (6)---分組報表

在 ActiveReports 中可以設(shè)置單級分組、嵌套分組，同時，還可以使用表格、列表以及矩陣等數(shù)據(jù)區(qū)域控件對數(shù)據(jù)源進(jìn)行分組操作。分組報表在商業(yè)報表系統(tǒng)中應(yīng)用不勝枚舉，客戶信息歸類統(tǒng)計表、商品分類統(tǒng)計表、銷售記錄年度、閱讀統(tǒng)計等等。本文將介紹如何在 ActiveReports 中實(shí)現(xiàn)分組報表。

1、創(chuàng)建報表文件

在應(yīng)用程序中添加一個 ActiveReports 報表文件，使用的項(xiàng)目模板類型為 ActiveReports 頁面報表。添加完成之后從 VS 報表菜單中選擇報表屬性菜單項(xiàng)，并在外觀選項(xiàng)卡中設(shè)置報表頁邊距為 1cm

2、打開報表資源管理器，并按照以下信息創(chuàng)建報表數(shù)據(jù)源

名稱：
NWind_CHS

類型：
Micorsoft OleDb Provider

OLE DB 提供程序：
Microsoft.Jet.OLEDB.4.0

服務(wù)器或文件名稱：
Data\NWind_CHS.mdb

3、 添加數(shù)據(jù)集

在新建的 NWind_CHS 數(shù)據(jù)源上鼠標(biāo)右鍵并選擇添加數(shù)據(jù)集菜單項(xiàng)，數(shù)據(jù)集信息如下：

常規(guī)-名稱：Products

查詢-查詢：

      
        
          SELECT
        
         產(chǎn)品.*,類別.類別名稱,類別.說明 
        
          AS
        
         類別說明,類別.圖片 
        
          AS
        
         類別圖片, 供應(yīng)商.公司名稱 
        
          AS
        
         供應(yīng)商,供應(yīng)商.聯(lián)系人姓名,供應(yīng)商.城市,供應(yīng)商.地址


      
      
        
          FROM
        
         (供應(yīng)商 
        
          INNER
        
        
          JOIN
        
         產(chǎn)品 
        
          ON
        
         供應(yīng)商.供應(yīng)商ID = 產(chǎn)品.供應(yīng)商ID) 
        
          INNER
        
        
          JOIN
        
         類別 
        
          ON
        
         產(chǎn)品.類別ID = 類別.類別ID


      
      
        
          ORDER
        
        
          BY
        
         產(chǎn)品.類別ID;
      
    

4、設(shè)計報表界面

選中報表的第一頁 Page1，點(diǎn)擊屬性窗口命令區(qū)域中【屬性對話框】命令鏈接，在出現(xiàn)的設(shè)置對話框中設(shè)置以下信息：

常規(guī)-數(shù)據(jù)集名稱：
Products

分組-表達(dá)式：
=[類別名稱]

4.1、從 VS 工具箱中將 Table 控件添加到報表設(shè)計界面，設(shè)置 Table1 的 FixedSize 為 19cm * 25cm，并按照以下信息各個數(shù)據(jù)單元格的屬性：

單元格行列索引
控件
屬性

Cells[1,1]
TextBox
Value=First(Fields!類別名稱.Value) & "? (" & First(Fields!類別說明.Value) & ")"

Cells[3,1]
TextBox
Value=Fields!產(chǎn)品名稱.Value

Cells[3,2]
TextBox
Value=Fields!單位數(shù)量.Value

Cells[3,3]
TextBox
Value=Fields!單價.Value

Cells[3,4]
TextBox
Value=Fields!訂購量.Value

Cells[3,5]
TextBox
Value=Fields!再訂購量.Value

Cells[3,6]
TextBox
Value=Fields!單價.Value *? Fields!訂購量.Value

Cells[3,7]
Image
Value=IconSet("Symbols2",Fields!中止.Value = 0,False,Fields!中止.Value * -1,False,False)

Cells[4,5]
TextBox
Value=Sum(Fields!訂購量.Value, "Table1")

Cells[5,5]
TextBox
Value=Sum(Fields!庫存量.Value, "Table1")

Cells[6,5]
TextBox
Value=Sum(Fields!單價.Value * Fields!訂購量.Value, "Table1")

最終得到的設(shè)計界面如下圖所示：

5、運(yùn)行程序

通過 F5 鍵運(yùn)行程序，得到以下運(yùn)行結(jié)果：

在線演示及源碼下載地址：

http://www.gcpowertools.com.cn/products/activereports_demo.htm

ActiveReports 報表應(yīng)用教程 (6)---分組報表