在 ActiveReports 中可以動態的顯示或者隱藏某區域的數據，通過該功能用戶可以根據需要顯示或者隱藏所關心的數據，結合數據排序、過濾等功能可以讓用戶更方便地分析報表數據。

　　本文中展示的是銷售數據分析表實現方法，該報表包含每年銷售數據匯總圖表，月度銷售統計，以及每月銷售明細屬性。通過年度銷售數據可以向下專區到月度銷售數據，從月度銷售數據可以向下鉆取到月度銷售明細數據，

　　1、創建報表文件

　　在應用程序中創建一個名為 rptDrollDown.rdlx 的 ActiveReports 報表文件，使用的項目模板為 ActiveReports 頁面報表，創建完成之后從 VS 的報表菜單項中選擇轉換為連續頁面布局(CPL)報表，將固定頁面報表轉換為連續頁面報表。

　　2、打開報表資源管理器，并按照以下信息創建報表數據源

　　名稱：

　　NWind_CHS

　　類型：

　　Micorsoft OleDb Provider

　　OLE DB 提供程序：

　　Microsoft.Jet.OLEDB.4.0

　　服務器或文件名稱：

　　Data/NWind_CHS.mdb

　　3、 添加數據集

　　在新建的 NWind_CHS 數據源上鼠標右鍵并選擇添加數據集菜單項

　　常規-名稱：OrderDetails

　　查詢-查詢： SAT答案

　　SELECT DatePart("yyyy",訂單.訂購日期) as 訂購年, DatePart("m",訂單.訂購日期) as 訂購月, 訂單.訂單ID, 訂單.客戶ID, 訂單.訂購日期, 產品.產品名稱,訂單明細.數量, 訂單明細.單價, 訂單明細.折扣, 類別.類別名稱 from ((( 訂單inner join 訂單明細 on 訂單.訂單ID = 訂單明細.訂單ID )inner join 產品 on 訂單明細.產品ID = 產品.產品ID )inner join 類別 on 產品.類別ID = 類別.類別ID)ORDER BY DatePart("yyyy",訂單.訂購日期) DESC;

　　4、設計報表界面

　　從 Visual Studio 工具箱中將 BandedList 控件添加到報表設計界面，按照以下列表設置 BandedList 控件的屬性：

　　常規-數據集名稱：

　　OrderDetails

　　分組-分組1：

　　名稱：BandedList1_Group1

　　表達式：=[訂購年]

　　分組-分組2：

　　名稱：BandedList1_Group2

　　表達式：=[訂購月]

　　在 BandedList1_Header 區域中添加以下控件，并設置相應屬性：

　　TextBox123

　　默認屬性設置

　　TextBox14

　　Value：=Fields!訂購年.Value & " 年銷售匯總"

　　TextBox8

　　Value：=Sum(Fields!數量.Value * Fields!單價.Value * ( 1 - Fields!折扣.Value),"BandedList1_Group1")

　　在 BandedList1_Group1_Header 區域中添加以下控件，并設置相應屬性：

　　Chart1

　　常規-數據集名稱：OrderDetails

　　系列值-系列標簽：數量

　　系列值-值：=Sum([數量] * [單價] * (1 - [折扣]))

　　類別分組-名稱：Chart1_CategoryGroup1

　　類別分組-表達式：=[類別名稱]

　　類別分組-標簽：=[類別名稱]

　　在 BandedList1_Group2_Header 區域中添加以下控件，并設置相應屬性：

　　TextBox3

　　默認屬性設置

　　TextBox15

　　常規-值：=[訂購月] & " 月銷售明細"

　　TextBox11

　　交互式排序選項卡的以下屬性

　　為文本框添加交互式排序功能：True

　　排序表達式：=[訂購月]

　　選擇數據區域或者分組：BandedList1_Group1

　　選擇數據區域或者分組：BandedList1_Group2

　　TextBox12

　　常規-值：=Sum([數量] * [單價] * ( 1 - [折扣]),"BandedList1_Group2")

　　TextBox13

　　交互式排序選項卡的以下屬性

　　為文本框添加交互式排序功能：True

　　排序表達式=Sum([數量] * [單價] * ( 1 - [折扣]),"BandedList1_Group2")

　　選擇數據區域或者分組：BandedList1_Group1

　　選擇數據區域或者分組：BandedList1_Group2

　　在 BandedList1_Details 區域中添加以下控件，并設置相應屬性：

　　TextBox10

　　=Fields!訂單ID.Value

　　TextBox4

　　=Fields!產品名稱.Value

　　TextBox5

　　=Fields!數量.Value

　　TextBox6

　　=Fields!單價.Value

　　TextBox7

　　=Fields!折扣.Value

　　TextBox9

　　=Fields!數量.Value * Fields!單價.Value * ( 1 - Fields!折扣.Value )

　　完成基本的報表界面設計之后，我們需要為報表添加向下鉆取功能，在 ActiveReports 中是通過指定報表元素的Visibility屬性來實現向下鉆取操作，需要設置的元素如下：

　　BandedList1_Group2_Header

　　Visibility.Hidden = True

　　Visibility.ToggleItem = TextBox123

　　BandedList1_Details

　　Visibility.Hidden = True

　　Visibility.ToggleItem = TextBox123

　　5、運行程序 托福答案
?

ActiveReports 交互式報表之向下鉆取解決方案