以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  下拉树形列表如何得到 GenerateTree("project","级码","检测项目", ".") 中定义时的级码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=158219)

--  作者:xa139
--  发布时间:2020/11/11 17:52:00
--  下拉树形列表如何得到 GenerateTree("project","级码","检测项目", ".") 中定义时的级码
 trv.GenerateTree("project","级码","检测项目", ".")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked And  nd.nodes.count = 0  Then
 
  s = s & "," & nd.??????
 
 
    End If
Next
如何获得定义的级码

--  作者:有点蓝
--  发布时间:2020/11/12 8:41:00
--  
trv.GenerateTree("project","级码","检测项目", ".")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked And  nd.nodes.count = 0  Then
    Output.Show(nd.FullName)
    Output.Show(nd.FullName.replace("\\","."))
    End If
Next