主题：[求助]关于列表项目（已解决）

在命令窗口执行：

Dim s1 As String
Dim s2 As new List(of String)
Dim s3 As String
For Each u As UserInfo In Users
    s1 = s1 & "|" & u.Name
    If s2.Contains(u.Group) = False Then
        s2.add(u.Group)
        s3 = s3  & "|" & u.Group
    End If
Next
output.show(s1)
output.show(s3)

看看执行结果，你就知道了