在ActiveReports中可以动态的显示或者隐藏某区域的数据，通过该功能用户可以根据需要显示或者隐藏所关心的数据，结合数据排序、过滤等功能可以让用户更方便地分析报表数据。

本文中展示的是销售数据分析表实现方法，该报表包含每年销售数据汇总图表，月度销售统计，以及每月销售明细属性。通过年度销售数据可以向下专区到月度销售数据，从月度销售数据可以向下钻取到月度销售明细数据，实现下图如下图：

1、创建报表文件

在应用程序中创建一个名为rptDrollDown.rdlx的ActiveReports报表文件，使用的项目模板为ActiveReports页面报表，创建完成之后从VS的报表菜单项中选择转换为连续页面布局(CPL)报表，将固定页面报表转换为连续页面报表。

2、打开报表资源管理器，并按照以下信息创建报表数据源名称：NWind_CHS类型：MicorsoftOleDbProviderOLEDB提供程序：Microsoft.Jet.OLEDB.4.0服务器或文件名称：Data\NWind_CHS.mdb

3、添加数据集

在新建的NWind_CHS数据源上鼠标右键并选择添加数据集菜单项

常规-名称：OrderDetails

查询-查询：

SELECT

DatePart("yyyy",订单.订购日期)

as

订购年,DatePart("m",订单.订购日期)

as

订购月,订单.订单ID,订单.客户ID,订单.订购日期,产品.产品名称,订单明细.数量,订单明细.单价,订单明细.折扣,类别.类别名称

from

(((订单

innerjoin

订单明细

on

订单.订单ID=订单明细.订单ID)

innerjoin

产品

on

订单明细.产品ID=产品.产品ID)

innerjoin

类别

on

产品.类别ID=类别.类别ID)

ORDERBY

DatePart("yyyy",订单.订购日期)

DESC

;

4、设计报表界面

从VisualStudio工具箱中将BandedList控件添加到报表设计界面，按照以下列表设置BandedList控件的属性：

常规-数据集名称：OrderDetails分组-分组1：名称：BandedList1_Group1
表达式：=[订购年]分组-分组2：名称：BandedList1_Group2
表达式：=[订购月]

在BandedList1_Header区域中添加以下控件，并设置相应属性：

TextBox123默认属性设置TextBox14Value：=Fields!订购年.Value&"年销售汇总"TextBox8Value：=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_Group2TextBox12常规-值：=Sum([数量]*[单价]*(1-[折扣]),"BandedList1_Group2")
TextBox13交互式排序选项卡的以下属性
为文本框添加交互式排序功能：True
排序表达式=Sum([数量]*[单价]*(1-[折扣]),"BandedList1_Group2")
选择数据区域或者分组：BandedList1_Group1
选择数据区域或者分组：BandedList1_Group2

在BandedList1_Details区域中添加以下控件，并设置相应属性：

TextBox10=Fields!订单ID.ValueTextBox4=Fields!产品名称.ValueTextBox5=Fields!数量.ValueTextBox6=Fields!单价.ValueTextBox7=Fields!折扣.ValueTextBox9=Fields!数量.Value*Fields!单价.Value*(1-Fields!折扣.Value)

完成基本的报表界面设计之后，我们需要为报表添加向下钻取功能，在ActiveReports中是通过指定报表元素的Visibility属性来实现向下钻取操作，需要设置的元素如下：

BandedList1_Group2_HeaderVisibility.Hidden=True
Visibility.ToggleItem=TextBox123BandedList1_DetailsVisibility.Hidden=True
Visibility.ToggleItem=TextBox123

5、运行程序

点击向下钻取图标以显示或者隐藏报表明细数据

×××地址：


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