Dim txb As WinForm.TextBox = Forms("主窗口").Controls("txb团队成员") Dim trv As WinForm.TreeView = e.Form.Controls("trv选择成员") txb.Text=e.Node.Text For Each nd As WinForm.TreeNode In e.Node.AllNodes nd.Checked = e.Node.Checked txb.Text= txb.Text & "," & nd.text Next If e.Node.Checked=False Then txb.Text="" End If