以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  我得到一个数据是“a\b\c\d”这样的，我用循环分析后，我想得到最后一个d节点 这个代码应该怎么写呀我这样写好像不对  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65733)
--  作者：a937775799
--  发布时间：2015/3/21 14:52:00
--  我得到一个数据是“a\b\c\d”这样的，我用循环分析后，我想得到最后一个d节点 这个代码应该怎么写呀我这样写好像不对
我得到一个数据是“a\\b\\c\\d”这样的，我用循环分析后，我想得到最后一个d节点
这个代码应该怎么写呀我这样写好像不对

For Each  r As  DataRow In rs
    
    For Each s As String In r("树路径").Split("\\")      

        tree.SelectedNode = tree.SelectedNode.Nodes(s)
        MessageBox.Show( tree.SelectedNode.Name )

    Next
       

Next
[此贴子已经被作者于2015/3/21 15:32:46编辑过]
--  作者：Bin
--  发布时间：2015/3/21 14:56:00
--  
选择字符串 等于A\\B\\C 的? 能否说清楚一点
--  作者：a937775799
--  发布时间：2015/3/21 15:00:00
--  
我刚才试了下
 tr.SelectedNode = tr.Nodes("a").Nodes("b")
好像可以 帮助上没写 可以这样吧，害我试了好久 别的办法
--  作者：Bin
--  发布时间：2015/3/21 15:06:00
--  
是可以的哦.
--  作者：a937775799
--  发布时间：2015/3/21 16:04:00
--  
 我刚才改了下帖子，新的问题在上面，谢谢看看
--  作者：Bin
--  发布时间：2015/3/21 16:05:00
--  
有2个属性可以利用
--  作者：a937775799
--  发布时间：2015/3/21 16:24:00
--  
 Dim rs As List(of DataRow) = DataTables("文件管理表").Select("[文件名] <> \'\'")
Dim tree As WinForm.TreeView = args(0)
For Each n As WinForm.TreeNode In tree.AllNodes
    For Each r As DataRow In rs
        If n.FullPath = r("树路径")
            MessageBox.Show("设置图标:"+n.FullPath+"="+r("备注")+".ico")
            n.IconFile = r("备注")+".ico"
        End If
    Next
Next
我这个代码为何把树所有的图标都设置了呀，但是messagebox 弹出来显示的是对的
--  作者：Bin
--  发布时间：2015/3/21 16:27:00
--  
一旦设置了图标,就都要有图标

If n.FullPath = r("树路径") 
            MessageBox.Show("设置图标:"+n.FullPath+"="+r("备注")+".ico")
            n.IconFile = r("备注")+".ico"
else
    n.IconFile ="另外一个图标"
        End If
[此贴子已经被作者于2015/3/21 16:27:32编辑过]
--  作者：a937775799
--  发布时间：2015/3/21 16:54:00
--  
好了 可以谢谢