1. 程式人生 > >Reporting Service奇偶行不同顏色的設定

Reporting Service奇偶行不同顏色的設定

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