ActiveReports工作总结6——使用子报表

本节目标：

承接上节，上节用2个group的方式打印了普通的分栏帐票。实现了换列换页的三维表示。

本节用子报表的方式来实现该功能。

 

子报表的功能比上面那个方法来说，更强大，更灵活。复杂帐票一般都得用到子报表。

 

开始之前，先简单介绍一下子报表的用法。

0，子报表的一般用法如下：

（1），先Add一个主模版(rpt1.rpx)，若干子模版(这里就建了一个，sub1.rpx)

<!--[if !vml]--><!--[endif]-->

（2），在主模版上放一个SubReport控件（该控件是一个占位符，sub1.rpx的内容将在这里显示），可以放在PageHeaer/Footer,GroupHeader/footer和Detail上，这个要视用途来定。这里放在GroupHeader1上。

<!--[if !vml]--><!--[endif]-->

（3），在主模版的GroupHeader1_Format事件（假如你的SubReport放在Detail中，就要用Detail_Format事件了）中，加入代码，生成子报表，并且给子报表设置数据源（这里为简单起见没有设置数据源）：

     Private   Sub  GroupHeader1_Format( ByVal  sender  As   Object ,  ByVal  e  As  System.EventArgs)  Handles  GroupHeader1.Format

         Dim  rpt  As   New  sub1()

         Me .subReport1.Report  =  rpt

     End Sub

（4），然后就可以设计你的子报表了，加控件，加代码，和操作主模版一样做法。需要说明的是，子模版中的PageHeader和PageFooter是不起作用的。

<!--[if !vml]--><!--[endif]-->

（5），然后御览，你会看到每页都包含的sub1.rpx的内容。假如你把SubReport控件放在Detail中的话，Detail中的每一行显示，都会把sub1.rpx的内容一起显示出来。

<!--[if !vml]--><!--[endif]-->

 

ok，正式开始了

1，先准备如下数据(把数据顺序组织成如下形式)：

Ａ	Chinese	1	Tony	100
Ａ	Chinese	2	Ｍａｒｙ	56
Ａ	Chinese	3	Ｔｏｍ	76
Ａ	Chinese	4	Ｊｏｈｎ	67
Ａ	Chinese	5	Ｌｉ	54
Ｂ	Chinese	6	Ｚｈａｎｇ	3
Ｂ	Chinese	7	Ｗａｎｇ	100
Ｂ	Chinese	8	Ｇｏｎｇ	23
Ｂ	Chinese	9	Ｔｉａｎ	78
Ｂ	Chinese	10	Ｊａｃｋ	87
Ｂ	Maths	6	Ｚｈａｎｇ	0
Ｂ	Maths	7	Ｗａｎｇ	2
Ｂ	Maths	8	Ｇｏｎｇ	56
Ｂ	Maths	9	Ｔｉａｎ	99
Ｂ	Maths	10	Ｊａｃｋ	88

 

 

2，创建一个AR主模版，1个子模版：

主模版(rpt1.rpx)：

GroupHeader1中：

GroupHeader1：DataField=”Class”

                       NewPage=”before”

ClassNo: DataField=”Class”

SubReport控件：需要注意的是，该控件的Width必须设成和实际要打印的Sub1.rpx的width一样大，否则sub1.rpx的内容将不能完全显示出来。后面我会专门讲解一下如何在代码中控制各控件width.

<!--[if !vml]--><!--[endif]-->

 

 

子模版1(sub1.rpx)

GroupHeader1: DataField=”Subject”

                      NewColumn=”Before”

       Subject:   DataField=”subject”

Detail: ColumnCount=2

       TextBox:  Datafield=”ID”

       TextBox2:Datafield=”Name”

       TextBox3:DataField=”Score”

<!--[if !vml]--><!--[endif]-->

 

 

3，在form的load事件中编写如下代码，把数据源传给模版，并显示模版：

  

 

 

4，在rpt1.rpx的GroupHeader1_Format事件，编写代码，显示子模版sub1.rpx.。

 

 

 

       注意了我这里传给子模版的数据源。

 

       当打印第一页时，我传给子模版的数据源是：

Ａ	Chinese	1	Tony	100
Ａ	Chinese	2	Ｍａｒｙ	56
Ａ	Chinese	3	Ｔｏｍ	76
Ａ	Chinese	4	Ｊｏｈｎ	67
Ａ	Chinese	5	Ｌｉ	54

       当打印Class=B的第二页时，我传给子模版的数据源变成了：

Ｂ	Chinese	6	Ｚｈａｎｇ	3
Ｂ	Chinese	7	Ｗａｎｇ	100
Ｂ	Chinese	8	Ｇｏｎｇ	23
Ｂ	Chinese	9	Ｔｉａｎ	78
Ｂ	Chinese	10	Ｊａｃｋ	87
Ｂ	Maths	6	Ｚｈａｎｇ	0
Ｂ	Maths	7	Ｗａｎｇ	2
Ｂ	Maths	8	Ｇｏｎｇ	56
Ｂ	Maths	9	Ｔｉａｎ	99
Ｂ	Maths	10	Ｊａｃｋ	88

 

 

5，ok，御览看看效果吧。搞定收工。

<!--[if !vml]--><!--[endif]-->

<!--[if !vml]--><!--[endif]-->

 

 

Dim  dv  As  DataView  =   New  DataView( CType ( Me .DataSource, DataTable),  " Class=' "   &   Me .Fields( " Class " ).Value.ToString  &   " ' " ,  "" , DataViewRowState.CurrentRows)

 

   Private   Sub  GroupHeader1_Format( ByVal  sender  As   Object ,  ByVal  e  As  System.EventArgs)  Handles  GroupHeader1.Format

         Dim  sub1  As   New  sub1()

         Me .subReport1.Report  =  sub1

         ' 為子報表設置数据源

         Dim  dv  As  DataView  =   New  DataView( CType ( Me .DataSource, DataTable),  " Class=' "   &   Me .Fields( " Class " ).Value.ToString  &   " ' " ,  "" , DataViewRowState.CurrentRows)

 

         Me .subReport1.Report.DataSource  =  dv

End Sub

 

Private   Sub  Form1_Load( ByVal  sender  As   Object ,  ByVal  e  As  System.EventArgs)  Handles   Me .Load

         Dim  conn  As   String   =   " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;Persist Security Info=False "

         Dim  cmd  As   String   =   " Select * from table1 order by ID "

         Dim  adapter  As   New  OleDbDataAdapter(cmd, conn)

         Dim  ds  As   New  DataSet

        adapter.Fill(ds)

 

         Dim  rpt  As   New  rpt1

        rpt.DataSource  =  ds.Tables( 0 )

        rpt.Run()

 

         Me .Viewer1.Document  =  rpt.Document

End Sub