前面我們所講的報表，不管簡單的還是複雜的，都遵循這樣一個流程：
開發人員事先做好模版——〉用戶運行程序——〉用戶選擇相應條件——〉打印或預覽帳票——〉程序把用戶選擇的數據填充到我們的模版上，然後顯示
可以說，用戶除了選擇條件，控制顯示的數據之外，能做的控制很少（除非把一些簡單的控制放在條件裏面）。
本節我就講講如何用AR的Designer控件，實現用戶自定義帳票印刷。
比如，要打印如下數據：
|
Class: |
A |
|
AttendNo: |
1 |
|
Name: |
Tony |
|
Sex: |
Male |
當然我們可以先做好相應的模版，然後讓用戶選擇數據就可以打印出來了。
但是，萬一用戶又需要一張類似的帳票，但需要把Name寫在Class前面，那我們怎麼辦？
1）重新做一個。真是個好辦法，下面的文章可以不用看了。
2）在用戶的條件中加一個條件（比如一個radio button，先顯示Class還是先顯示Name）,然後我們在模版裏面判斷一下這個條件，根據它來對模版進行相應的調整。
這種方法其實在我們項目也是常常用到的（比如判斷顯示subject的全稱還是簡稱，就是在條件中放個Check box的條件，模版做相應判斷）。
但在本例中卻不適用，萬一用戶又要求把Class和AttendNo放一行上怎麼辦？用戶的需求可是千變萬化的。
3）用AR提供的Designer控件，可以實現用戶自定義模版。
對於本例來說，用戶可以自己把Class,name這些控件，拖到模版上，自己設定大小位置，然後打印。
ok，下面我們就來創建一個最簡單的自定義帳票：
1，數據源如下：
|
Class |
AttendNo |
Name |
Sex |
|
Ａ |
1 |
Tony |
ｍａｌｅ |
|
Ａ |
2 |
Ｍａｒｙ |
ｆｅｍａｌｅ |
|
Ａ |
3 |
Ｔｏｍ |
ｍａｌｅ |
|
Ａ |
4 |
Ｊａｃｋ |
ｍａｌｅ |
|
Ａ |
5 |
Ｓｍｉｔｈ |
ｍａｌｅ |
|
Ｂ |
1 |
Ｊｏｈｎ |
ｍａｌｅ |
|
Ｂ |
2 |
Ｌｉ |
ｆｅｍａｌｅ |
|
Ｂ |
3 |
Ｚｈａｎｇ |
ｆｅｍａｌｅ |
|
Ｂ |
4 |
Ｗａｎｇ |
ｍａｌｅ |
|
Ｃ |
1 |
Ｇｏｎｇ |
ｍａｌｅ |
|
Ｃ |
2 |
Ｔｉａｎ |
ｆｅｍａｌｅ |
2，需要打印出來的帳票也超級簡單，就是根據Class來換頁的一張普通二維表：
page1:
|
Class |
AttendNo |
Name |
Sex |
|
Ａ |
1 |
Tony |
ｍａｌｅ |
|
Ａ |
2 |
Ｍａｒｙ |
ｆｅｍａｌｅ |
|
Ａ |
3 |
Ｔｏｍ |
ｍａｌｅ |
|
Ａ |
4 |
Ｊａｃｋ |
ｍａｌｅ |
|
Ａ |
5 |
Ｓｍｉｔｈ |
ｍａｌｅ |
3，創建如下文件：
<!--[if !vml]-->
<!--[endif]-->
frmShowAR和前面幾個例子一樣，用來放view控件顯示報表
test.mdb是數據源
ReportDesigner裏面放Designer控件，讓用戶進行自定義操作
4，讓我們來看ReportDesigner:
<!--[if !vml]-->
<!--[endif]-->
1）左側放了個Designer控件：
<!--[if !vml]-->
<!--[endif]-->
2）右上放一些button控件,包括添加空白label，添加item，預覽帳票的按鈕。
3）右下放一個PropertyGrid控件，可以用來顯示和修改Designer中所有控件的public property.
<!--[if !vml]-->
<!--[endif]-->
5，添加好幾個控件之後，你可以先運行程序看看
<!--[if !vml]-->
<!--[endif]-->
哈哈，不錯吧，在程序運行當中，你可以直接在模版上添加section了，和我們設計模版時完全一樣，這下可以讓用戶自己來設計帳票了。
6，不過先在還不能在模版上增加控件。先在我們編寫代碼，使得可以在模版上創建控件，並且用PropertyGrid控件來修改這些控件的屬性。最後通過Preview按鈕預覽帳票。
1）在模版上增加一個控件的方法：
先選中特定section (比如Detail,GroupFooter)
然後就可以用代碼：
2）預覽的實現，把當前Designer的模版傳給frmShowAR，然後在frmShowAR中顯示這個模版
ReportDesigner.vb
Dim _frm As New frmShowAR()
_frm.Report = Me.Designer1.Report
_frm.ShowDialog(Me)
End Sub
frmShowAR.vb
完整代碼如下：
#Region "UI Event"
''' <summary>
''' Handles the Click event of the btnAddTextBox control.
''' </summary>
''' <param name="sender">The source of the event.</param>
''' <param name="e">The <see cref="System.EventArgs" /> instance containing the event data.</param>
''' <remarks></remarks>
''' <history>
''' [TonyGong] 3/8/2007 2:17 PM Created
''' </history>
Private Sub btnAddTextBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddTextBox.Click
If Me.listItem.SelectedIndex = -1 Then
Return
End If
Dim arControl As New DataDynamics.ActiveReports.TextBox
Select Case Me.listItem.SelectedItem.ToString()
Case "Class"
arControl.DataField = "Class"
Case "AttendNo"
arControl.DataField = "AttendNo"
Case "Name"
arControl.DataField = "Name"
Case "Sex"
arControl.DataField = "Sex"
End Select
Me.addControlToReport(arControl)
End Sub
''' <summary>
''' Handles the Load event of the ReportDesigner control.
''' </summary>
''' <param name="sender">The source of the event.</param>
''' <param name="e">The <see cref="System.EventArgs" /> instance containing the event data.</param>
''' <remarks></remarks>
''' <history>
''' [TonyGong] 3/8/2007 2:17 PM Created
''' </history>
Private Sub ReportDesigner_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.PropertyGrid1.SelectedObject = Me.Designer1
End Sub
''' <summary>
''' Designer1_s the selection changed.
''' </summary>
''' <remarks></remarks>
''' <history>
''' [TonyGong] 3/8/2007 2:17 PM Created
''' </history>
Private Sub Designer1_SelectionChanged() Handles Designer1.SelectionChanged
Me.PropertyGrid1.SelectedObject = Me.Designer1.Selection(0)
End Sub
''' <summary>
''' Handles the Click event of the btnAddLabel control.
''' </summary>
''' <param name="sender">The source of the event.</param>
''' <param name="e">The <see cref="System.EventArgs" /> instance containing the event data.</param>
''' <remarks></remarks>
''' <history>
''' [TonyGong] 3/8/2007 2:17 PM Created
''' </history>
Private Sub btnAddLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddLabel.Click
Me.addControlToReport(New DataDynamics.ActiveReports.Label)
End Sub
''' <summary>
''' Handles the Click event of the btnPreview control.
''' </summary>
''' <param name="sender">The source of the event.</param>
''' <param name="e">The <see cref="System.EventArgs" /> instance containing the event data.</param>
''' <remarks></remarks>
''' <history>
''' [TonyGong] 3/8/2007 2:17 PM Created
''' </history>
Private Sub btnPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
Dim rpt As New DataDynamics.ActiveReports.ActiveReport()
Dim _stream As New System.IO.MemoryStream()
Me.Designer1.Report.SaveLayout(_stream)
_stream.Position = 0
rpt.LoadLayout(_stream)
_stream.Close()
Dim _frm As New frmShowAR()
_frm.Report = rpt
_frm.ShowDialog(Me)
End Sub
#End Region
#Region "Private Method"
''' <summary>
''' Adds the control to report.
''' </summary>
''' <param name="control">The control.</param>
''' <remarks></remarks>
''' <history>
''' [TonyGong] 3/8/2007 2:17 PM Created
''' </history>
Private Sub addControlToReport(ByVal control As DataDynamics.ActiveReports.ARControl)
Select Case Me.Designer1.Selection(0).GetType.FullName
Case GetType(DataDynamics.ActiveReports.Detail).FullName
CType(Me.Designer1.Selection(0), DataDynamics.ActiveReports.Detail).Controls.Add(control)
Case GetType(DataDynamics.ActiveReports.PageHeader).FullName
CType(Me.Designer1.Selection(0), DataDynamics.ActiveReports.PageHeader).Controls.Add(control)
Case GetType(DataDynamics.ActiveReports.PageFooter).FullName
CType(Me.Designer1.Selection(0), DataDynamics.ActiveReports.PageFooter).Controls.Add(control)
Case GetType(DataDynamics.ActiveReports.GroupHeader).FullName
CType(Me.Designer1.Selection(0), DataDynamics.ActiveReports.GroupHeader).Controls.Add(control)
Case GetType(DataDynamics.ActiveReports.GroupFooter).FullName
CType(Me.Designer1.Selection(0), DataDynamics.ActiveReports.GroupFooter).Controls.Add(control)
Case Else
Return
End Select
End Sub
#End Region
End Class
7,在frmShowAR中給模版設置數據源
'Show the table1
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"
Dim adapter As New OleDbDataAdapter(cmd, conn)
Dim ds As New DataSet
adapter.Fill(ds)
_rpt.DataSource = ds
_rpt.DataMember = ds.Tables(0).TableName
_rpt.Run()
Me.Viewer1.Document = _rpt.Document
End Sub
8,ok!我們的工作結束了，接下去用戶可以在程序中自己設計模版了
1）用戶運行程序，出來如下界面：
<!--[if !vml]-->
<!--[endif]-->
2）用戶自己添加group,添加控件，調整大小，增加控件的框線等等，如下：
<!--[if !vml]-->
<!--[endif]-->
3）不要忘記給GroupHeader1設置換頁字段
<!--[if !vml]-->
<!--[endif]-->
4）ok,按Preview吧，看看我們的成果：
<!--[if !vml]-->
<!--[endif]-->
9，呵呵，現在用戶想怎麼打就怎麼打了。
也許可能有人要問了，每次運行程序，用戶都要去設置模版，都麻煩啊。
恩，我們可以增加一個save和load模版的功能，讓用戶自己把設計好的模版保存下來，今後直接load。
這個超級簡單，只要增加2個控件，編碼如下就可以了
Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FileSave)
End Sub
Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
Me.Designer1.ExecuteAction(DataDynamics.ActiveReports.Design.DesignerAction.FileOpen)
End Sub
10，好了，本節就到這。
AR的自定義功能很強大的，運用的好，很多帳票都可以用自定義實現。
當然，文中舉的例子比較簡單，僅當拋磚引玉。
Get
Return _rpt
End Get
Set(ByVal Value As DataDynamics.ActiveReports.ActiveReport)
_rpt = Value
End Set
End Property
Private Sub frmShowAR_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
_rpt.Run()
Me.Viewer1.Document = _rpt.Document
End Sub