常用一览表印刷
环境：
vs2005+ActiveReportsNet2
AR下载地址：ftp://ftp.datadynamics.com/
前面讲了普通的分栏帐票，下面讲讲简单的一览帐票，一览帐票也是我们常常碰到的，具体式样一般如下：
page 1:
|
Class: A |
|
|
|
|
ID |
Name |
Chinese |
Maths |
|
1 |
Tony |
100 |
99.0 |
|
2 |
Ｍａｒｙ |
56 |
76.0 |
|
3 |
Ｔｏｍ |
76 |
54.0 |
|
4 |
Ｊｏｈｎ |
67 |
86.0 |
|
5 |
Ｌｉ |
54 |
34.0 |
page 2:
|
Class: B |
|
|
|
|
ID |
Name |
Chinese |
Maths |
|
6 |
Ｚｈａｎｇ |
3 |
0.0 |
|
7 |
Ｗａｎｇ |
100 |
2.0 |
|
8 |
Ｇｏｎｇ |
23 |
56.0 |
|
9 |
Ｔｉａｎ |
78 |
99.0 |
|
10 |
Ｊａｃｋ |
87 |
88.0 |
该类型帐票有如下特点：
(1）、一栏帐票的特点是有若干区域组成，如下区域1是固定不换列的，区域2是动态换列的。
(2)、一览帐票的各栏可以是衔接在一起的，即栏间距为0，也可以是分开的。
(3)、Title和SubTitle通常是不分栏的，它们会跨越所有的栏。
(4)、帐票区域2的默认栏数应该是固定的，比方说A4纸默认印刷8栏，如果超过8栏可以选择换页，也可以选择超出边界继续印刷(红线)。
这是由代码来控制的。
本节目标：
有如下数据源
|
Ａ |
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 |
最终希望打印成如下帐票：
(1)根据Class换行
(2)区域1的ID,Name列固定
(3)区域2的Subject列根据数据源自动换列
page 1:
|
Class: A |
|
|
|
ID |
Name |
Chinese |
|
1 |
Tony |
100 |
|
2 |
Ｍａｒｙ |
56 |
|
3 |
Ｔｏｍ |
76 |
|
4 |
Ｊｏｈｎ |
67 |
|
5 |
Ｌｉ |
54 |
page 2:
|
Class: B |
|
|
|
|
ID |
Name |
Chinese |
Maths |
|
6 |
Ｚｈａｎｇ |
3 |
0.0 |
|
7 |
Ｗａｎｇ |
100 |
2.0 |
|
8 |
Ｇｏｎｇ |
23 |
56.0 |
|
9 |
Ｔｉａｎ |
78 |
99.0 |
|
10 |
Ｊａｃｋ |
87 |
88.0 |
0，开始之前，先分析一下，由于区域1和区域2的换列方式是不同的，肯定不能放到一个SubReport里。
我们一般的做法是区域1放到一个不换列的Subreport，区域2也放到一个换列的SubReport里去。主模版负责换page.
1，先准备如下数据源：
数据源可以在后台取数的时候就组织好，也可以到前台再组织数据。
这里我们需要2份数据
（1）传给区域1用，根据Class分批传给区域1
|
Ａ |
1 |
Tony |
|
Ａ |
2 |
Ｍａｒｙ |
|
Ａ |
3 |
Ｔｏｍ |
|
Ａ |
4 |
Ｊｏｈｎ |
|
Ａ |
5 |
Ｌｉ |
|
Ｂ |
6 |
Ｚｈａｎｇ |
|
Ｂ |
7 |
Ｗａｎｇ |
|
Ｂ |
8 |
Ｇｏｎｇ |
|
Ｂ |
9 |
Ｔｉａｎ |
|
Ｂ |
10 |
Ｊａｃｋ |
（2）传给区域2用，根据Class分批传给区域2，通过Subject换列
|
Ａ |
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，创建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(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).TableNameds中包括了2个table，这里直接把ds传给了主模版，主模版用到了table1,然后在主模版的代码中，再把table2传给子模版。
4，在rpt1.rpx的GroupHeader1_Format事件，编写代码，显示子模版sub1.rpx.和sub2.rpx
'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
5，ok，御览看看效果吧。搞定收工。
本节代码下载：https://files.cnblogs.com/batoosai/SimpleExample7.rar
