在一些統(tǒng)計報表中，常利用樹形報表實現(xiàn)維度鉆取功能，逐級鉆取查看更細粒度的指標數(shù)據(jù)，那么如何根據(jù)維度層次和最細粒度的指標數(shù)據(jù)，匯總生成這樣一個樹形結(jié)構(gòu)報表統(tǒng)計報表呢？本文主要介紹了使用ActiveReports 實現(xiàn)樹形結(jié)構(gòu)報表，并設(shè)置進度條顯示功能。

<獲取ActiveReports試用版>

（一）報表原型：

（二）報表模板：

（三）數(shù)據(jù)源結(jié)構(gòu)：

（四）實現(xiàn)思路：

1. 使用Table控件，按照級別字段分組；

2. 對不同級別的數(shù)據(jù)，添加縮進

3. 設(shè)置隱藏或展開狀態(tài)

（五）報表實現(xiàn)：

1.新建RDL報表模板

2.添加數(shù)據(jù)源和數(shù)據(jù)集

3.添加Table控件

3.1 綁定數(shù)據(jù)字段

3.2 設(shè)置詳細數(shù)據(jù)分組

3.2.1 選中“Table”，在屬性窗口中，選擇“屬性對話框”

3.2.2 選擇“詳細數(shù)據(jù)分組”標簽，輸入表達式：=【編號】；上級分組：=【上級編號】；點擊確定。

設(shè)置“可見性”選擇“可見性可以通過其他報表元素進行切換”，輸入TextBoxName:TextBox4;

3.2.4，選中“項目名稱”單元格，設(shè)置“Padding”的Left 屬性值為：=2 + (Level() * 20) & "pt"

4.設(shè)置進度條

4.1 添加區(qū)間顏色函數(shù)；

如果項目進度<0.2 則表示緊急，顯示為紅色標識等；

4.1.1 選中“腳本”選項，輸入以下代碼：

Function GetColor(ByVal value As Double) As String
    If(value < 0.2) Then
        Return "Red"
    ElseIf(value < 0.4) Then
        Return "#F37A5A"
    ElseIf(value < 0.6) Then
        Return "#FFE022"
    ElseIf(value < 0.8) Then
        Return "#B5E610"
    Else
        Return "#00B338"
    End If
End Function

4.2 添加Image控件

為“計劃完成進度”和“實際完成進度”單元格，添加Image控件，將Image控件直接拖拽到單元格中

4.2.1 為 Image 設(shè)置值

1. 設(shè)置 Source屬性為”Database”

2. 設(shè)置Value 屬性為“=DataBar(Fields!計劃完成進度.Value,0,1,0,Code.GetColor( Fields!計劃完成進度.Value))”

5.添加行號

5.1 添加行號腳本代碼：

Private Dim Counter As Integer = 0

Public Function GetCounter() As Integer
    Me.Counter = Me.Counter + 1
    return Me.Counter
End Function

5.2 設(shè)置單元格值為：=Code.GetCounter()

6.調(diào)整樣式

文章轉(zhuǎn)自葡萄城

產(chǎn)品資源查看>>