主题：请教:多选 列表

列属性，扩展为多只字段；

代码严谨一点，这样就避免用户直接输入：

If e.Col.Name = "Name" Then
    Dim s As String
    For Each us As UserInfo In Users

        if s = nothing

            s =  us.Name

        else 
            s = s & "|" & us.Name

        end if 
    Next
    e.Col.Combolist = s
End If