Reporting Service技巧(一):表格中奇偶行不同顏色的設定
阿新 • • 發佈:2019-02-12
在報表開發中,我們都希望設計出的報表非常美觀,就象Excel2007給我們帶來的全新的視覺感受一樣,讓使用者感覺很舒服。
美觀性設定中,在報表中奇偶行顯示不同的背景顏色就是其中的一種,那麼我們就來介紹一下在Reporting Services 2005中如何來實現。
方法一:系統函式
設定所有單元格的背景為如下表達式:
backgroudcolor=iif(RowNumber(Nothing) Mod 2, "Lavender", "White")
其中:
RowNumber(Nothing):提供了對最外層資料區域中的各行的執行計數值
為了實現更好的通用性,我們可以將此寫成一個自定義函式。
方法二:自定義函式
此方法設定得更為巧妙,利用一個全域性變數bOddRow來實現奇偶行的切換。
Private bOddRow As Boolean
'*****************************************************************************
'-- Display green-bar type color banding in detail rows
'-- Call from BackGroundColor property of all detail row textboxes
'-- Set Toggle True for first item, False for others.
'*****************************************************************************
Function AlternateColor(ByVal OddColor As String, ByVal EvenColor As String, ByVal Toggle As Boolean) As String
If Toggle Then bOddRow = Not bOddRow
If bOddRow Then
Return OddColor
Else
Return EvenColor
End If
End Function
函式設定完成之後,在表格第一列的背景色中設定為:
=Code.AlternateColor("Black", "White", True)
其他列設定為:
=Code.AlternateColor("Black", "White", False)