Reporting Services 2005 表格奇偶列顏色交替顯示的兩種實作方法

需求背景

為了提升報表閱讀體驗，參考 Excel 2007 的視覺風格，在 Reporting Services 2005 表格中實現奇偶列背景色交替（綠色條紋效果）。

方法一：系統函數 RowNumber + IIf 運算式

直接在每個文字方塊的 BackgroundColor 屬性設定運算式：

=IIf(RowNumber(Nothing) Mod 2 = 1, "Lavender", "White")

原理說明

• RowNumber(Nothing)：傳回最外層資料區域的列序號（從 1 開始）
• Mod 2：奇數列為 1，偶數列為 0
• IIf：依條件回傳淡紫色或白色

進階：封裝為自訂函式

為了跨報表複用，可在報表屬性 → 程式碼 中定義：

Public Function AlternateRowColor(ByVal rowNum As Integer) As String
    If rowNum Mod 2 = 1 Then
        Return "Lavender"
    Else
        Return "White"
    End If
End Function

運算式改為：=Code.AlternateRowColor(RowNumber(Nothing))

方法二：全域變數切換法（效能更佳）

利用模組層級變數 bOddRow 追蹤奇偶狀態，避免重複計算 RowNumber。

自訂程式碼完整實作

Private bOddRow As Boolean

'*****************************************************************************
'-- 明細列顯示綠色條紋效果
'-- 呼叫方式：所有明細列文字方塊的 BackgroundColor 屬性
'-- 第一欄設定 Toggle=True，其餘欄位 Toggle=False
'*****************************************************************************
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

報表設定方式

運作原理

1. 報表渲染時逐列處理，第一欄 Toggle=True 觸發 bOddRow 翻轉
2. 同一列其餘欄位 Toggle=False 直接讀取目前 bOddRow 狀態
3. 確保同一列所有欄位顏色一致，跨列正確交替

比較與建議