Question

在我的SSRS报告中插入自定义代码后，出现此错误：

An error occurred during local report processing. The definition of the report ...in invalid. An unexpected error occured while compiling expressions. Native compiler return valid '[BC42105]' Function 'ColorDWB' doesn't return a value on all code paths. A null reference exception could occur at a run time when the result is used.

我要做的就是根据颜色阴影创建一个像热图一样的Excel。我的自定义代码：

      Public Shared Function ColorDWB(ByVal Value As Decimal, ByVal MaxPositive As Decimal, 
ByVal Neutral As Decimal, ByVal ColStr As String) As String 
Dim ColVar1 As Integer Dim ColVar2 
As Integer Dim ColVar3 As Integer ‘Split the #RGB color to R, G, and B components 

ColVar1=Convert.ToInt32(left(right(ColStr, 6),2),16) 
ColVar2=Convert.ToInt32(left(right(ColStr, 4),2),16) 
ColVar3=Convert.ToInt32(right(ColStr, 2),16) ‘Find Largest Range Dim decPosRange 
As Decimal = Math.Abs(MaxPositive – Neutral) ‘Find appropriate color shade 
Dim Shd As Decimal = 255     

Dim iColor1 As Integer 
Dim iColor2 As Integer 
Dim iColor3 As Integer 
Dim strColor As String ‘Reduce a shade for each of the R,G,B components 
iColor1 = ColVar1 + CInt(Math.Round((MaxPositive-Value) * ((Shd – ColVar1) / decPosRange))) 
iColor2 = ColVar2 + CInt(Math.Round((MaxPositive-Value) * ((Shd – ColVar2) / decPosRange))) 
iColor3 = ColVar3 + CInt(Math.Round((MaxPositive-Value) * ((Shd – ColVar3) / decPosRange))) 

strColor = “#” & iColor1.ToString(“X2”)  & iColor2.ToString(“X2”) & iColor3.ToString(“X2”)     
Return strColor 
End Function

它不是第一个给我同样错误的代码。我不太了解VB。我在这里缺少什么？

Answer 1

我已经纠正并测试了你的功能：

Public Shared Function ColorDWB(ByVal Value As Decimal, ByVal MaxPositive As Decimal, ByVal Neutral As Decimal, ByVal ColStr As String) As String
        Dim ColVar1 As Integer
        Dim ColVar2 As Integer
        Dim ColVar3 As Integer
        'Split the #RGB color to R, G, and B components 
        ColVar1 = Convert.ToInt32(left(right(ColStr, 6), 2), 16)
        ColVar2 = Convert.ToInt32(left(right(ColStr, 4), 2), 16)
        ColVar3 = Convert.ToInt32(right(ColStr, 2), 16)
        'Find Largest Range 
        Dim decPosRange As Decimal = Math.Abs(MaxPositive - Neutral)
        'Find appropriate color shade 
        Dim Shd As Decimal = 255
        Dim iColor1 As Integer
        Dim iColor2 As Integer
        Dim iColor3 As Integer
        Dim strColor As String
        'Reduce a shade for each of the R,G,B components 
        iColor1 = ColVar1 + CInt(Math.Round((MaxPositive - Value) * ((Shd - ColVar1) / decPosRange)))
        iColor2 = ColVar2 + CInt(Math.Round((MaxPositive - Value) * ((Shd - ColVar2) / decPosRange)))
        iColor3 = ColVar3 + CInt(Math.Round((MaxPositive - Value) * ((Shd - ColVar3) / decPosRange)))
        'Return the new color 
        strColor = "#" & iColor1.ToString("X2") & iColor2.ToString("X2") & iColor3.ToString("X2")
        Return strColor
    End Function

也许你需要做一些修复，但它确实有效。

这是一个小提琴：https://dotnetfiddle.net/g3nR0O

在SSRS中插入自定义代码后出错

1 个答案: