Here is a
couple of useful functions for MS CRM 2011 reports:
Function that used to remove the duplicate
records
Public Shared Function RemoveDups(ByVal
items As String) As String
Dim noDups As New System.Collections.ArrayList()
Dim SpStr
SpStr = Split(items ,",")
For i As Integer=0 To Ubound(Spstr)
If Not
noDups.Contains(SpStr(i).Trim()) Then
noDups.Add(SpStr(i).Trim())
End
If
Next
Dim uniqueItems As String() = New String(noDups.Count-1){}
noDups.CopyTo(uniqueItems)
Return String.Join(",", uniqueItems)
End Function