自定义代码函数可以返回两个值吗？

Question

我在我的报告下面的代码：

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我的报告。

如何调整函数使其返回两个变量，然后如何从报表中调用它们？

Answer 1

如果您将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