专注于中国的商业智能

(转)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)

posted on 2008-04-17 19:33 李梦蛟 阅读(239) 评论(0)  编辑 收藏 所属分类: Sqlserver2005 BI


标题  
姓名  
主页
Email (博主才能看到) 
验证码 *  看不清,换一张 [登录][注册]
内容(请不要发表任何与政治相关的内容)  
  登录  使用高级评论  新用户注册  返回页首  恢复上次提交      
该文被作者在 2008-04-21 10:00 编辑过


相关链接: