以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  节点取值  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=70809)

--  作者:qhczy
--  发布时间:2015/6/29 15:38:00
--  节点取值

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目323.rar


图片点击可在新窗口打开查看此主题相关图片如下:01.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:02.png
图片点击可在新窗口打开查看
图1第一列对应的值为 笔记本,服务器,台式机,机箱,主板,DC,DV
图2 第一列值对应为 笔记本,服务器,台式机,CD,CRT电视,液晶电视

 


--  作者:Bin
--  发布时间:2015/6/29 15:41:00
--  
没看懂你的描述. 根据你的图实在没办法对应起来是怎么回事
--  作者:qhczy
--  发布时间:2015/6/29 15:43:00
--  

只取最底层节点的值,填到对应的列.


--  作者:Bin
--  发布时间:2015/6/29 15:48:00
--  
.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目323.table


--  作者:qhczy
--  发布时间:2015/6/29 15:55:00
--  

图二结果不对啊.


--  作者:Bin
--  发布时间:2015/6/29 15:57:00
--  
图2又是怎么回事? 没看懂
--  作者:qhczy
--  发布时间:2015/6/29 16:11:00
--  

还是取最底层节点的值.


--  作者:大红袍
--  发布时间:2015/6/29 16:12:00
--  

 没理解你什么意思。

 

 如果想区分开来,你目录树的数据,就要分开来啊。


--  作者:qhczy
--  发布时间:2015/6/29 17:05:00
--  

三层节点的目录树,取最底层值.


--  作者:大红袍
--  发布时间:2015/6/29 17:29:00
--  
Dim s As String
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level = 2 AndAlso nd.Checked Then
        s = s & "," & nd.Text
    End If
Next
e.Form.DropDownBox.Value = s.trim(",")
e.Form.DropDownBox.CloseDropdown