Custom Function in MS Reporter

在使用MS Reporter做报表时，有些功能不能实现，可以用VB自定义一个函数来处理。比如下面的：
打开一个报表文件.RDLC时，在非操作区点右键，选择属性，再选择CODE选项卡，输入下列代码

Public Function GetPersent()Function GetPersent(ByVal vASP As Decimal, ByVal vMCOS As Decimal, ByVal vQTY As Decimal) As Decimal
  If vASP = 0 Or vMCOS = 0 Or vQTY = 0 Then
    Return 0
    Exit Function
  Else
    Return (1 - vMCOS / vASP) * 100 
  End If
End Function
 
'For Example: 
'=Round(Avg(Code.GetPersent(Fields!FC_ASP.Value,Fields!FC_MCOS.Value,Fields!FC.Value)),2)