ActiveReports工作总结7——常用一览表印刷

前面讲了普通的分栏帐票，下面讲讲简单的一览帐票，一览帐票也是我们常常碰到的，具体式样一般如下：
page 1:

[align=left]Class: A[/align]	[align=left] [/align]	[align=left] [/align]	[align=left] [/align]
[align=center]ID[/align]	[align=center]Name[/align]	[align=center]Chinese[/align]	[align=center]Maths[/align]
[align=right]1[/align]	[align=left]Tony[/align]	[align=right]100[/align]	[align=right]99.0 [/align]
[align=right]2[/align]	[align=left]Ｍａｒｙ[/align]	[align=right]56[/align]	[align=right]76.0 [/align]
[align=right]3[/align]	[align=left]Ｔｏｍ[/align]	[align=right]76[/align]	[align=right]54.0 [/align]
[align=right]4[/align]	[align=left]Ｊｏｈｎ[/align]	[align=right]67[/align]	[align=right]86.0 [/align]
[align=right]5[/align]	[align=left]Ｌｉ[/align]	[align=right]54[/align]	[align=right]34.0 [/align]

page 2:

[align=left]Class: B[/align]	[align=left] [/align]	[align=left] [/align]	[align=left] [/align]
[align=center]ID[/align]	[align=center]Name[/align]	[align=center]Chinese[/align]	[align=center]Maths[/align]
[align=right]6[/align]	[align=left]Ｚｈａｎｇ[/align]	[align=right]3[/align]	[align=right]0.0 [/align]
[align=right]7[/align]	[align=left]Ｗａｎｇ[/align]	[align=right]100[/align]	[align=right]2.0 [/align]
[align=right]8[/align]	[align=left]Ｇｏｎｇ[/align]	[align=right]23[/align]	[align=right]56.0 [/align]
[align=right]9[/align]	[align=left]Ｔｉａｎ[/align]	[align=right]78[/align]	[align=right]99.0 [/align]
[align=right]10[/align]	[align=left]Ｊａｃｋ[/align]	[align=right]87[/align]	[align=right]88.0 [/align]

该类型帐票有如下特点：
(1）、一栏帐票的特点是有若干区域组成，如下区域1是固定不换列的，区域2是动态换列的。



(2)、一览帐票的各栏可以是衔接在一起的，即栏间距为0，也可以是分开的。
(3)、Title和SubTitle通常是不分栏的，它们会跨越所有的栏。
(4)、帐票区域2的默认栏数应该是固定的，比方说A4纸默认印刷8栏，如果超过8栏可以选择换页，也可以选择超出边界继续印刷(红线)。
这是由代码来控制的。

本节目标：
有如下数据源

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

最终希望打印成如下帐票：
(1)根据Class换行
(2)区域1的ID,Name列固定
(3)区域2的Subject列根据数据源自动换列
page 1:

[align=left]Class: A[/align]	[align=left] [/align]	[align=left] [/align]
[align=center]ID[/align]	[align=center]Name[/align]	[align=center]Chinese[/align]
[align=right]1[/align]	[align=left]Tony[/align]	[align=right]100[/align]
[align=right]2[/align]	[align=left]Ｍａｒｙ[/align]	[align=right]56[/align]
[align=right]3[/align]	[align=left]Ｔｏｍ[/align]	[align=right]76[/align]
[align=right]4[/align]	[align=left]Ｊｏｈｎ[/align]	[align=right]67[/align]
[align=right]5[/align]	[align=left]Ｌｉ[/align]	[align=right]54[/align]

page 2:

[align=left]Class: B[/align]	[align=left] [/align]	[align=left] [/align]	[align=left] [/align]
[align=center]ID[/align]	[align=center]Name[/align]	[align=center]Chinese[/align]	[align=center]Maths[/align]
[align=right]6[/align]	[align=left]Ｚｈａｎｇ[/align]	[align=right]3[/align]	[align=right]0.0 [/align]
[align=right]7[/align]	[align=left]Ｗａｎｇ[/align]	[align=right]100[/align]	[align=right]2.0 [/align]
[align=right]8[/align]	[align=left]Ｇｏｎｇ[/align]	[align=right]23[/align]	[align=right]56.0 [/align]
[align=right]9[/align]	[align=left]Ｔｉａｎ[/align]	[align=right]78[/align]	[align=right]99.0 [/align]
[align=right]10[/align]	[align=left]Ｊａｃｋ[/align]	[align=right]87[/align]	[align=right]88.0 [/align]

0，开始之前，先分析一下，由于区域1和区域2的换列方式是不同的，肯定不能放到一个SubReport里。
我们一般的做法是区域1放到一个不换列的Subreport，区域2也放到一个换列的SubReport里去。主模版负责换page.

1，先准备如下数据源：
数据源可以在后台取数的时候就组织好，也可以到前台再组织数据。
这里我们需要2份数据
（1）传给区域1用，根据Class分批传给区域1

[align=left]Ａ[/align]	[align=right]1[/align]	[align=left]Tony[/align]
[align=left]Ａ[/align]	[align=right]2[/align]	[align=left]Ｍａｒｙ[/align]
[align=left]Ａ[/align]	[align=right]3[/align]	[align=left]Ｔｏｍ[/align]
[align=left]Ａ[/align]	[align=right]4[/align]	[align=left]Ｊｏｈｎ[/align]
[align=left]Ａ[/align]	[align=right]5[/align]	[align=left]Ｌｉ[/align]
[align=left]Ｂ[/align]	[align=right]6[/align]	[align=left]Ｚｈａｎｇ[/align]
[align=left]Ｂ[/align]	[align=right]7[/align]	[align=left]Ｗａｎｇ[/align]
[align=left]Ｂ[/align]	[align=right]8[/align]	[align=left]Ｇｏｎｇ[/align]
[align=left]Ｂ[/align]	[align=right]9[/align]	[align=left]Ｔｉａｎ[/align]
[align=left]Ｂ[/align]	[align=right]10[/align]	[align=left]Ｊａｃｋ[/align]

（2）传给区域2用，根据Class分批传给区域2，通过Subject换列

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

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



(1),主模版(rpt1.rpx)：
GroupHeader1中：
GroupHeader1：DataField=”Class”
NewPage=”before”
ClassNo: DataField=”Class”
2个SubReport控件：需要注意的是，该控件的Width必须设成和实际要打印的Sub.rpx的width一样大，否则sub.rpx的内容将不能完全显示出来。后面我会专门讲解一下如何在代码中控制各控件width.



(2),子模版1(sub1.rpx)
该子模版不需要设置分栏
TextBox5: DataField=”ID”
TextBox2: DataField=”Name”



(3),子模版2(sub2.rpx)
GroupHeader1: DataField=”Subject”
NewColumn=”Before”
Subject: DataField=”Subject”
TextBox3: DataField=”Score”



3，在form的load事件中编写如下代码，把数据源传给主模版，并显示模版，这里要组织2份数据：




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




Dim sql1 As String = "select distinct Class,ID,Name from table1 order by ID "




Dim sql2 As String = "select * from table1 order by Class,Subject,ID "




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




Dim adapter As New OleDbDataAdapter(sql1, conn)




Dim ds As New DataSet




Dim table As New DataTable








adapter.Fill(table)




ds.Tables.Add(table)








table = New DataTable




adapter = New OleDbDataAdapter(sql2, conn)




adapter.Fill(table)




ds.Tables.Add(table)












Dim rpt As New rpt1




rpt.DataSource = ds




rpt.DataMember = ds.Tables(0).TableName




rpt.Run()




Me.Viewer1.Document = rpt.Document




End Sub





这里需要注意的是：


rpt.DataSource = ds




rpt.DataMember = ds.Tables(0).TableName



ds中包括了2个table，这里直接把ds传给了主模版，主模版用到了table1,然后在主模版的代码中，再把table2传给子模版。

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

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

'subReport1

Me.subReport1.Report = New sub1

'為子報表設置数据源

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

Me.subReport1.Report.DataSource = dv

'subReport2

Me.subReport2.Report = New sub2

dv = New DataView(CType(Me.DataSource, DataSet).Tables(1), "Class='" & Me.Fields("Class").Value.ToString & "'", "", DataViewRowState.CurrentRows)

Me.subReport2.Report.DataSource = dv
End Sub

[align=left] [/align]
5，ok，御览看看效果吧。搞定收工。