ReportingSerivces 常用技巧

//解决重复线问题
 Dim name As String = ""

    Public Function FindLine(ByVal value As String) As String
        If name = value Then
            Return false
        Else
            name = value
            Return true
        End If
    End Function
另一种方法：
=IIF(Fields!UNIT_LEVEL_L2.Value<>Previous(Fields!UNIT_LEVEL_L2.Value),"Solid","None")
//处理三个数一个,号的问题 ：
FormatNumber(number,0,0,0,-1)
12小时
把列印时间改为：=now().ToShortDateString() & Iif(Hour(TimeOfDay())<12,(" 上午 ") ,(" 下午 " & TimeOfDay().AddHours(-12)) )
24小时
把列印时间改为：="列印時間："& now().ToShortDateString() & Iif(Hour(TimeOfDay())<12," 上午"," 下午") & TimeOfDay()
IE预览加线
=IIf(Rownumber("table11_Group3")=CountRows("table11_Group3"),"Solid","None")
判断sp里的数据是否为空
    Public Function IsNothing (ByVal ACTUAL As String,ByVal TARGET As String) As String
       select   TARGET
         case   "" 
           return("ak47") 
         case   " "  
             return("ak47")
  case else
 return(ACTUAL /TARGET )
        end   select
    End Function