主题：[求助]多值去除重复值

中国，中国，美国，英国

去除重复值  中国，得到

中国，美国，英国

想实现像上图，参与人自动根据右边3列值生成值，自动排除重复值，李四

Dim drf As DataRow = e.DataRow

Select Case e.DataCol.Name

Case "裁判员","守门员","中锋队员"

Dim lst As new List(of String)

Dim nms() As String = {"裁判员","守门员","中锋队员"}

'Dim nms() As String = drf("参与人")

For Each s As String In nms

If drf.IsNull(s) = False AndAlso lst.Contains(s) = False Then lst.Add(s)

Next

If lst.Count > 0 Then

drf("参与人") = String.Join(",",lst.ToArray)

Else

drf("参与人") = Nothing

End If

End Select

蓝总，参与人姓名被替换了，还没去处重复