主题：获取分组名称的问题

If e.Col.Name = "分组" Then
    Dim s As String
    For Each us As UserInfo In Users
        s = s & "|" & us.Group 
    Next
    e.Col.Combolist = s
End If

 

项目内,已经定义了三个分组.分别是:销售部,采购部,生产部.

 

同时也定义了4个用户名,分别是 A,B,C,D 4个用户.

销售部:A,B

采购部:C

生产部:D

 

此时,在下拉列显示的是:二个销售部,一个采购部,一个生产部.

 

而不是获取不重复的分组名称

If e.Col.Name = "分组" Then
    Dim s As String
    For Each us As UserInfo In Users
        If s.IndexOf(us.group) < 0 Then
            s = s & "|" & us.Group
        End If
    Next
    e.Col.Combolist = s
End If

狐爸,这代码出错呢.
此主题相关图片如下：qq截图20120905214155.jpg

If e.Col.Name = "分组" Then
    Dim s As String
    For Each us As UserInfo In Users
        If s = "" OrElse s.IndexOf(us.group) < 0 Then
            s = s & "|" & us.Group
        End If
    Next
    e.Col.Combolist = s
End If