Dim str As String = ""For Each us As UserInfo In Users str &= us.Name & "|"Next
Dim cmb As WinForm.ComboBoxcmb = Forms("编辑器").Controls("ComboBox2")cmb.ComboList = str.Trim("|")
加好友 
发短信
Post By：2015/8/5 14:54:00 [显示全部帖子]
