参考:http://www.foxtable.com/webhelp/scr/1273.htm,注意下面第一行3个点
'''
Dim s As String Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")For Each nd As WinForm.TreeNode In trv.AllNodes If nd.Checked Then s = s & "、" & nd.Text End IfNexte.Form.DropDownBox.Value = s.trim(",")e.Form.DropDownBox.CloseDropdown