彩票走势图

本教程描述了DevExpress报表控件XtraReports创建穿透钻取报表的步骤，其中详细报表类别可以通过单击在新窗口中调用，让您避免原报表中的兀余信息。

步骤如下：

1、 打开MS Visual Studio(2008或2010)，并在任何受支持的平台上创建一个新的应用程序，或者打开一个已有的应用程序。

2、 添加一个新的空白报表(名为MasterReport)，并将该报表绑定到示例Northwind数据库（XtraReports安装包中附带的nwind.mdb文档）的"Categories" 标签上。

3、 从Field List字段列表，把CategoryName数据字段拖到报表的Detail band细节区域中，自动创建一个数据绑定控件。

4、 添加另一个空白报表(名为DetailReport)，并将它绑定到Northwind数据库的"Products"标签上。

5、 为报表添加参数，在Field List字段列表中，右键单击并选择Parameters部分，并选择Add Parameters。

6、 通过这种方式，创建两个参数，命名为catId和catName。设置他们的Modifiers修饰符属性为Public、并为catId参数设置Parameter.Type属性为Int32。

7、 创建一个ReportHeaderBand……

并且，从Field List字段列表，把catName参数拖放到到创建区域上。

8、 然后，为报表添加GroupHeaderBand。创建一个报表代表 "Products" 数据表中的数据。

DetailReport报表最终应该如下图所示。

9、 设置报表的的XtraReportXtraReport.RequestParameters属性为false，单击省略号按钮，为XtraReportBase.FilterString属性调用FilterString编辑器。

10、 使用编辑器，定义以下表达式: [CategoryID] = [Parameters.catId]。

11、 切换回MasterReport，为创建的标签控件，处理以下事件:XRControl.BeforePrint， XRControl.PreviewClick和XRControl.PreviewMouseMove。

12、 为这些事件处理程序引用以下代码。

注意，控件的XRControl.Tag属性用于存储当前数据字段的值。

C#

using System.Data;

using System.Windows.Forms;

using System.Drawing.Printing;

using DevExpress.XtraReports.UI;

// ... 

// Save the data for the current category to the label's Tag property. 

private void xrLabel1_BeforePrint(object sender, PrintEventArgs e) {

    ((XRLabel)sender).Tag = GetCurrentRow();

}

private void xrLabel1_PreviewClick(object sender, PreviewMouseEventArgs e) {

    // Create a new Detail Report instance. 

    DetailReport detailReport = new DetailReport();

    // Obtain the current category's ID and Name from the e.Brick.Value property, 

    // which stores an object assigned the label's Tag property. 

    detailReport.catId.Value = (int)((DataRowView)e.Brick.Value).Row["CategoryID"];

    detailReport.catName.Value = ((DataRowView)e.Brick.Value).Row["CategoryName"].ToString();

    // Show the detail report in a new modal window. 

    detailReport.ShowPreviewDialog();

}

// The following code changes the cursor to "hand" when it hovers the label,  

// so that it behaves as a common link. 

private void xrLabel1_PreviewMouseMove(object sender, ;PreviewMouseEventArgs e) {

    Cursor.Current = Cursors.Hand;

}

VB

Imports System.Data

Imports System.Windows.Forms

Imports System.Drawing.Printing

Imports DevExpress.XtraReports.UI

' ... 

' Save the data for the current category to the label's Tag property. 

Private Sub xrLabel1_BeforePrint(ByVal sender As Object, ByVal e _

As PrintEventArgs) Handles xrLabel1.BeforePrint

    CType(sender, XRLabel).Tag = GetCurrentRow()

End Sub 

Private Sub xrLabel1_PreviewClick(ByVal sender As Object, ByVal e _

As PreviewMouseEventArgs) Handles xrLabel1.PreviewClick

    ' Create a new Detail Report instance. 

    Dim detailReport As New DetailReport()

    ' Obtain the current category's ID and Name from the e.Brick.Value property, 

    ' which stores an object assigned the label's Tag property. 

    detailReport.catId.Value = CInt(Fix((CType(e.Brick.Value, DataRowView)).Row("CategoryID")))

    detailReport.catName.Value = (CType(e.Brick.Value, DataRowView)).Row("CategoryName").ToString()

    ' Show the detail report in a ;new modal window. 

    detailReport.ShowPreviewDialog()

End Sub 

' The following code changes the cursor to "hand" when it hovers the label,  

' so that it behaves as a common link. 

Private Sub xrLabel1_PreviewMouseMove(ByVal sender As Object, ByVal e _

As PreviewMouseEventArgs) Handles xrLabel1.PreviewMouseMove

    Cursor.Current = Cursors.Hand

End Sub 

穿透钻取报表就完成了。运行打印预览表单，并查看结果。