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

以上代码,获取项目内所有用户名

但是只能单选.

能否做成多选?

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

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

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

感谢你的回复.

但是这个代码好像不能多选,或是我哪做不对了.请帮忙再看一下.

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

谢谢大家的帮助.我现在将例子上传来了.

在"Name"列,我需要能够多选的方式选择多个用户名/

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目19.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目19.table

将此列的扩展列类型设置为多值字段就行：

http://www.foxtable.com/help/topics/0939.htm