上次舉了一個(gè)很簡(jiǎn)單的例子顯示一個(gè)簡(jiǎn)單的ActiveReports for .NET報(bào)表模版，不過(guò)現(xiàn)實(shí)中，我們一般要求ActiveReports for .NET顯示一組特定數(shù)據(jù)，這些數(shù)據(jù)可能是一個(gè)數(shù)據(jù)表，也可能是一個(gè)數(shù)組。 

這時(shí)候，就要求我們把這些數(shù)據(jù)綁定到我們的ActiveReports（以下簡(jiǎn)稱AR）模版上了。AR2.0支持如下數(shù)據(jù)源：   

DataSet
DataTable
DataView
IListSource

綁定數(shù)據(jù)源的代碼如下：

 '創(chuàng)建AR模版實(shí)例
             Dim rpt As New ARSimpleExample

             '指定數(shù)據(jù)源為mytable
             rpt.DataSource = mytable
             rpt.DataMember = mytable.TableName


             '顯示AR模版
             Me.Viewer1.Document = rpt.Document
             rpt.Run()

現(xiàn)在我們舉一個(gè)例子，假如我有一個(gè)Studeng表，結(jié)構(gòu)如下：    

No       Name        
1          Tom 
2          John
3   ;       Mary  

我要把他們顯示到AR模版中去，我們有如下工作要做：     

1、在我們的Form的frmShowAR_Load事件中，做一下綁定數(shù)據(jù)源的操作（把mytable綁定到AR模版中去），代碼如下：   

''' -----------------------------------------------------------------------------

    ''' <summary>
    ''' form load事件
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>
    ''' form load時(shí)，把AR模版裝載到Viewer容器中去
    ''' </remarks>
    ''' <history>
    '''     [TonyGong]    6/5/2006    Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Private Sub frmShowAR_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            '創(chuàng)建一個(gè)talbe，格式如下:
            'No             Name
            '1              Tom
            '2              John
            '3              Mary
            Dim mytable As New DataTable
            mytable.Columns.Add("No")
            mytable.Columns.Add("Name")

            Dim myrow As DataRow
            myrow = mytable.NewRow()
            myrow("no") = "1"
            myrow("name") = "Tom"
            mytable.Rows.Add(myrow)

            myrow = mytable.NewRow()
            myrow("no") = "2"
            myrow("name") = "John"
            mytable.Rows.Add(myrow)

            myrow = mytable.NewRow()
            myrow("no") = "3"
            myrow("name") = "Mary"
            mytable.Rows.Add(myrow)



            '創(chuàng)建AR模版實(shí)例
            Dim rpt As New ARSimpleExample

            '指定數(shù)據(jù)源為mytable
            rpt.DataSource = mytable
            rpt.DataMember = mytable.TableName


            '顯示AR模版
            Me.Viewer1.Document = rpt.Document
            rpt.Run()

        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try

2、綁定好數(shù)據(jù)源，AR模版就得到了mytable的所有值，然后是要把這些值顯示出來(lái)。

先要在AR模版上加幾個(gè)控件用來(lái)顯示數(shù)據(jù)，如圖：

打開(kāi)我們的模版，在PageHeader中放入2個(gè)Lable控件，用來(lái)顯示Title，把它們的Text屬性分別改成“”和“姓名”

然后在Detail中放入2個(gè)Textbox控件，用來(lái)顯示學(xué)生的No和Name

關(guān)鍵的屬性是DataField，這里要填入該TextBox要綁定的列，如圖：

3、ok，很簡(jiǎn)單吧，以上2步設(shè)定好之后，就可以正常顯示了，按F5，效果如下：

效果是出來(lái)了，不過(guò)稍微丑了一點(diǎn)，改一下布局（把PageHeader和Detail的高度改成正好放下控件的高度），給每個(gè)控件加上邊框（右擊控件，選擇Format Border），改成如下：

再運(yùn)行，樣子好看多了吧。