RDLCレポートグループのシーケンス番号の追加

RDLCはRowNumberの関数でシーケンス番号として使用できますが、RDLCではvbでしか書けないパケットシーケンス番号が必要になることが多いです.
コードは次のとおりです.

Dim count As Integer

Dim GroupName As String

Public Function GroupCount(name As String) As Integer



If (GroupName = "") Then count = 1 GroupName = name GroupCount = count Exit Function

End If



If (GroupName = name) Then count = count + 1

Else GroupName = name count = 1

End If GroupCount = count End Function

呼び出し:Code.GroupCount(Fields!GroupName.Value);