- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- TreeView节点 如何用代码遍历增加字符呢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175631)
-- 发布时间：2022/3/12 14:09:00
-- TreeView节点 如何用代码遍历增加字符呢？
当前代码如下：
Dim tv As WinForm.TreeView
tv =e.Form.Controls("TreeView1")
tv.BuildTree("干部花名册", "工作单位|级别归属|身份性质|姓名")
For i As Integer = i To tv.Nodes.Count-1
tv.Nodes(i).Text=tv.Nodes(i).Name & "()"
For i1 As Integer = i1 To tv.Nodes(i).Nodes.Count -1
tv.Nodes(i).Nodes(i1).Text=tv.Nodes(i).Nodes(i1).Name & "()"
For i2 As Integer = i2 To tv.Nodes(i).Nodes(i1).Nodes.Count -1
tv.Nodes(i).Nodes(i1).Nodes(i2).Text=tv.Nodes(i).Nodes(i1).Nodes(i2).Name & "()"
Next
Next
Next
运行后没有将所有的0 1 2 三个节点标题全部加上对应的“（）” 麻烦老师帮忙看看 谢谢！
此主题相关图片如下：11.png
-- 发布时间：2022/3/12 14:23:00
--
For i As Integer = 0 To tv.Nodes.Count-1