SSRS 2008r2在具有表达式的字段上使用聚合

Question

SSRS 2008r2

I'm trying to perform an aggregate (Sum) on a field within a GROUPing that contains an expression.

The field where I want to SUM to appear is within a different GROUPing.

I've created the following Function within Report Properties

Dim public tot_OT_Hrs As Decimal 

Public Function Add_OT_Hrs(ByVal OT_Hrs As Decimal) AS Decimal 

    tot_OT_Hrs = tot_OT_Hrs + OT_Hrs 

    return OT_Hrs 

End Function 

Public Function GetTotal() 
    return tot_OT_Hrs 
End Function

I've added a call to the "Add_OT_Hrs" function in the field where the expression is and this works fine.

=Code.Add_OT_Hrs(
    IIF(Sum(Fields!HrsWorked.Value) > Parameters!StdWorkingHrs.Value, 
        Sum(Fields!HrsWorked.Value) - Parameters!StdWorkingHrs.Value + Sum(Fields!Rate1Hrs.Value)
            , Sum(Fields!Rate1Hrs.Value ) 
        )
    )

Fields!Rate1Hrs.Value is the field in which the expression resides in and Fields!HrsWorked.Value is an adjacent field

However, the field where I want to total to appear I've added the following

=Code.GetTotal()

All that is returned here is 0 (zero) on every row in the GROUPing. If I initialise the Dim public tot_OT_Hrs As Decimal variable to say 1.2 then 1.2 is returned on every row in the GROUPing. The Add_OT_Hrs function isn't working as expected.

Where am I going wrong?

Thanks in advance.

Answer 1

Looks to me that you are converting in the wrong order and also to the wrong data type. In the code example that you used you were converting the sum to a double which is not the correct data type. There is a notable difference between a double and decimal when using custom functions.

I tested this with a very small dataset as follows

select '1.2'
union all 
select '1.8'

Then applied the following custom code

Dim public total as decimal
Public Function AddTotalr(ByVal r AS decimal) AS decimal
            total = total + r
            return r

End Function

Public Function GetTotalr()
            return total
End Function

The order of your explicit conversion is vital. You have to convert the value before you sum the total so that you are working with consistent data types.

=code.addtotalr(sum(cdec(Fields!ID.Value)))

Even with the correct data type the this will produce an error because you are attempting to sum what is, most likely, being interpreted as a character string.

=code.addtotalr(cdec(sum(Fields!ID.Value)))

-----------edit ------------------------

As a test to see what the return on the function is change your function to

Dim public total as decimal
Public Function AddTotalr(ByVal r AS decimal) AS decimal
        total = total + r
        return total

This should give you a running total of the items processed and the last value in the list should match what your total should be.

Answer 2

I decided to do this in the proc. It works out quite well now.