以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  下拉列表，如分别取值为用户组，用户名  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=68647)
--  作者：flashv
--  发布时间：2015/5/21 21:37:00
--  下拉列表，如分别取值为用户组，用户名
下拉列表，如分别取值为"系统用户"中的用户组，用户名
[此贴子已经被作者于2015/5/21 21:37:36编辑过]
--  作者：大红袍
--  发布时间：2015/5/21 21:41:00
--  

Dim str As String = ""
For Each u As UserInfo In Users
    If u.Type = UserTypeEnum.User Then
        str &= u.Group & "," & u.Name & "|"
    End If
Next

msgbox(str.Trim("|"))
--  作者：狐狸爸爸
--  发布时间：2015/5/22 8:07:00
--  

参考：

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

 
--  作者：flashv
--  发布时间：2015/5/22 23:15:00
--  
If e.IsFocusCell Then
    If e.Col.Name = "用户组" Then
 e.col.ComboList  = （这里该如何写呢？）
    End If
End If
--  作者：flashv
--  发布时间：2015/5/22 23:24:00
--  
麻烦老师们了，不太会写。
--  作者：狐狸爸爸
--  发布时间：2015/5/23 10:12:00
--  

这是固定不变的，直接在窗口的AfterLoad事件写代码：

 

Dim str As String = ""
For Each u As UserInfo In Users
    If u.Type = UserTypeEnum.User Then
        str &= u.Group & "," & u.Name & "|"
    End If
Next

e.From.Controls("控件名").ComboList = str