Dim trv As WinForm.TreeView = e.Form.Controls("trv选择成员") Dim str As String = "" For Each nd As WinForm.TreeNode In trv.AllNodes If nd.Level = 1 Then If nd.Checked Then str &= "," & nd.text End If End If Next Tables("表A").current("团队成员")=str.Trim(",") Forms("下拉窗口").close
加好友 
发短信
Post By：2015/5/27 18:01:00 [显示全部帖子]
