主题：怎样 只返回 最末端的子节点 ，

 Dim s As String
Dim d As  Integer
d=0
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
d=d+1
    End If
Next
If d >0 Then
e.Form.DropDownBox.Value = s.trim(",")
Else
e.Form.DropDownBox.Value =""
End If
e.Form.DropDownBox.CloseDropdown