Question

我正在尝试在Report Builder 3.0中编写一个自定义函数，它基本上检查多值参数中的值（它们将是1,2或3）并返回“Bronze”（1），“银“（2）或”金“（3）取决于每行的最高值。所以......

Public Function BronzeSilverGold() As String
    Dim bronzeFlag As Integer = 0
    Dim silverFlag As Integer = 0
    Dim goldFlag As Integer = 0
    Dim numPledges As Integer = Report.Parameters!PledgeValues.Count()

    For index As Integer = 1 To numPledges
        If Report.Parameters!PledgeValues.Value(index) = 1 Then
            bronzeFlag += 1
        ElseIf Report.Parameters!PledgeValues.Value(index) = 2 Then
        bronzeFlag += 1
            silverFlag += 1
        ElseIf Report.Parameters!PledgeValues.Value(index) = 3 Then
            bronzeFlag += 1
            silverFlag  += 1
            goldFlag += 1
        End If
    Next index

    If goldFlag = numPledges Then
        Return "Gold"
    ElseIf silverFlag = numPledges Then
        Return "Silver"
    ElseIf bronzeFlag = numPledges Then
        Return "Bronze"
    End If
End Function

令我烦恼的是，当我运行报告时，单元格只返回#Error。问题似乎特别是“Report.Parameters！PledgeValues.Value（index）”。如果我运行这个：

Public Function BronzeSilverGold() As String
    Dim bronzeFlag As Integer = 0
    Dim numPledges As Integer = Report.Parameters!PledgeValues.Count()
    Dim index as Integer = 0

    For index = 1 To numPledges
        If (Report.Parameters!PledgeValues.Value(1) = 2) Then
            bronzeFlag += 1
        End If
    Next index

    return bronzeFlag

End Function

然后它成功返回值8（因为参数中的第一个值是2）。如果我将第7行从Report.Parameters！PledgeValues.Value（1）更改为Report.Parameters！PledgeValues.Value（index）报表中的单元格返回#Error

不知道我做错了什么 - 如果有人有任何想法，他们会非常感激。

Answer 1

您的问题是multivalue parameter值集合从零开始，而不是基于一个。也就是说，数组中的第一项是索引0，最后一项是Count - 1。因此For index As Integer = 1 To numPledges抛出数组超出范围错误。

您需要使用：

For index As Integer = 0 To numPledges - 1

顺便说一句，Count是一个属性而不是一个方法，因此它不应该有括号。

似乎无法使用变量作为多值参数的索引

1 个答案: