在報表開發中,我們都希望設計出的報表非常美觀,就象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)