Foxtable(狐表)用户栏目专家坐堂 → 我得到一个数据是“a\b\c\d”这样的,我用循环分析后,我想得到最后一个d节点 这个代码应该怎么写呀我这样写好像不对


  共有4676人关注过本帖树形打印复制链接

主题:我得到一个数据是“a\b\c\d”这样的,我用循环分析后,我想得到最后一个d节点 这个代码应该怎么写呀我这样写好像不对

帅哥哟,离线,有人找我吗?
a937775799
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:594 积分:4030 威望:0 精华:0 注册:2015/3/10 13:25:00
我得到一个数据是“a\b\c\d”这样的,我用循环分析后,我想得到最后一个d节点 这个代码应该怎么写呀我这样写好像不对  发帖心情 Post By:2015/3/21 14:52:00 [显示全部帖子]

我得到一个数据是“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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
a937775799
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:594 积分:4030 威望:0 精华:0 注册:2015/3/10 13:25:00
  发帖心情 Post By:2015/3/21 15:00:00 [显示全部帖子]

我刚才试了下
 tr.SelectedNode = tr.Nodes("a").Nodes("b")
好像可以 帮助上没写 可以这样吧,害我试了好久 别的办法

 回到顶部
帅哥哟,离线,有人找我吗?
a937775799
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:594 积分:4030 威望:0 精华:0 注册:2015/3/10 13:25:00
  发帖心情 Post By:2015/3/21 16:04:00 [显示全部帖子]

 我刚才改了下帖子,新的问题在上面,谢谢看看

 回到顶部
帅哥哟,离线,有人找我吗?
a937775799
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:594 积分:4030 威望:0 精华:0 注册:2015/3/10 13:25:00
  发帖心情 Post By: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 弹出来显示的是对的

 回到顶部
帅哥哟,离线,有人找我吗?
a937775799
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:594 积分:4030 威望:0 精华:0 注册:2015/3/10 13:25:00
  发帖心情 Post By:2015/3/21 16:54:00 [显示全部帖子]

好了 可以谢谢

 回到顶部