以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  显示节点内容这个怎么不对呢?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6484)

--  作者:mr725
--  发布时间:2010/4/4 13:47:00
--  显示节点内容这个怎么不对呢?

Dim tr As WinForm.TreeView = Forms("xsbmls").Controls("TreeView1")
Dim tx as string
Dim td,td1 As WinForm.TreeNode
td = tr.Nodes(15)
td1 = td.Nodes(0)
tx = "td" & 1 & ".text"
output.show(tx)                  \'显示为:
td1.text   这只是个文本不对 怎样表达能和下面的结果一样呢?
output.show(td1.text)         \'显示为:目录树位置第16个节点的第一个子节点的内容 正确: 
                                                     即tr.Nodes(15).Nodes(0).text  的内容。

[此贴子已经被作者于2010-4-4 15:10:00编辑过]

--  作者:yangming
--  发布时间:2010/4/4 16:01:00
--  
tx = "" & td1.text &""
--  作者:mr725
--  发布时间:2010/4/4 16:17:00
--  
以下是引用yangming在2010-4-4 16:01:00的发言:
tx = "" & td1.text &""

哈哈~  我这里的1 是动态的,可能是 2、3、4、5....  如:
.......
td = tr.Nodes(15)
td1 = td.Nodes(0)
td2 = td1.Nodes(0)
td3 = td2.Nodes(0)
........


[此贴子已经被作者于2010-4-4 16:20:27编辑过]

--  作者:程兴刚
--  发布时间:2010/4/4 21:22:00
--  

我明白您的意思了,除非贺老师改进(估计他也不好办,看了好多VB.net实例,好像就没提供这个,原因定义的变量就是td1)

解决办法提示,定义所有的变量,
Dim td,td1,td2,td3,........tdn As WinForm.TreeNode
需要的时候先
tdn = Forms("xsbmls").Controls("TreeView" & n)
否则,我觉得不好办,也许是我的水平有限!