虽然很早就知道Reporting Service中可以使用自定义函数（VB语言），但是一直未使用，呵呵主要是感到无用武之地啊~~但是今天遇到了一个问题，让我一下子想到了用自定义函数来解决这一问题。

问题描述如下：有一个参数，它可以多选，选中它的某些值，则显示对应的一些图表。

由于是多值参数，因此需要判断某张图表对应的参数值有没有被选中（一张图表对应一个值），因此写了一个函数用来判断该图表对应的值是否被选中。

代码如下：

Public Function Show(ByVal parameter as Parameter,ByVal f as Integer) as Integer
Dim total_count As Integer
total_count=parameter.Count-1
Dim i as Integer
for i=0 to parameter.Count-1
if f=parameter.Value(i)then
return 1
End If
Next i
return 0
End Function

注意事项：1.在VB函数中，参数一定要定义成ByVal

2.不需要分号（；）