- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 怎样 只返回 最末端的子节点 ， (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158211)
-- 发布时间：2020/11/11 16:13:00
-- 怎样 只返回 最末端的子节点 ，
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
-- 发布时间：2020/11/11 16:27:00
--
if nd.nodes.count = 0 then
msgbox("没有子节点")
else
msgbox("有子节点")
end if