程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> SqlServer數據庫 >> 關於SqlServer >> Reporting Service技巧(一):表格中奇偶行不同顏色的設置

Reporting Service技巧(一):表格中奇偶行不同顏色的設置

編輯:關於SqlServer

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

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved