0

レポートに以下のコードがあります。

Dim suma As Decimal = New Decimal()

Public Function SumLookup(ByVal items As Object()) As Decimal
    If items Is Nothing Then
        Return Nothing
    End If

    Dim ct as Integer = New Integer()
    suma = 0
    ct = 0

    For Each item As Object In items
        suma += Convert.ToDecimal(item)
        ct += 1
    Next

    If (ct = 0) Then return 0 else return suma 
End Function

Public Function GetMyVal() as Decimal
    GetMyVal = suma 
End Function

上記の関数は を返しますsuma。次の方法で関数を呼び出します。

code.SumLookup(LookupSet(Fields!Claim_Currency.Value,Fields!Claim_Currency.Value,Fields!Total_Paid_Loss___LAE.Value, "dataSet"))

suma変数とctレポートの両方を使用したいと考えています。

両方の変数を返すように関数を調整するにはどうすればよいですか? また、レポートからそれらを呼び出すにはどうすればよいですか?

4

1 に答える 1

0

ct をパブリック変数として宣言すると、コード内で Code.Variable としてアクセスできます。

Public ct As Integer

tb1=code.SumLookup(LookupSet(Fields!Claim_Currency.Value,Fields!Claim_Currency.Value,Fields!Total_Paid_Loss___LAE.Value, "dataSet"))

tb2=code.ct
于 2013-03-07T22:09:12.437 に答える