以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [原创]如何取出树中的节点到字符串  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10420)

--  作者:aloby
--  发布时间:2011/6/4 14:19:00
--  [原创]如何取出树中的节点到字符串

如何取出树中的节点到字符串?下面的代码怎么不行?

 

Dim tr As WinForm.TreeView = Forms("定位树").Controls("TreeView1")

Dim Vals() As String = tr.allnodes


--  作者:mr725
--  发布时间:2011/6/4 14:34:00
--  

Dim tr As WinForm.TreeView = Forms("定位树").Controls("TreeView1")

output.show(tr.SelectedNode.fullpath)


--  作者:aloby
--  发布时间:2011/6/4 14:51:00
--  
解决了,谢谢.另外,将某字段中左边都是"中国\\上海"字符串全改成"中国\\北京",用什么语句改?
--  作者:mr725
--  发布时间:2011/6/4 15:18:00
--  

Dim s As String  = "abcd"
s=s.replace("a","b")  
output.show(s)

[此贴子已经被作者于2011-6-4 15:18:23编辑过]

--  作者:aloby
--  发布时间:2011/6/4 15:21:00
--  

不是的,是把某字段中所有的"ab"全部换成"中国"

如:

abcd

ab南京

ab北京

ab上海

 

全部改成:

中国cd

中国南京

中国北京

中国上海


--  作者:mr725
--  发布时间:2011/6/4 15:35:00
--  

for each r as row in currenttable.rows

      r("字段") = r("字段").replace("ab","中国")

next

 


--  作者:aloby
--  发布时间:2011/6/4 17:10:00
--  
谢谢,MR725真是高手.还有啊,怎么判断某个树节点是不是是低一级?好象没有方法.
--  作者:狐狸爸爸
--  发布时间:2011/6/4 17:16:00
--  

node不是有level属性吗:

 

http://help.foxtable.com/topics/0907.htm

 


--  作者:aloby
--  发布时间:2011/6/4 17:28:00
--  
我上面没讲清楚,我是要判断这个节点是不是最底层节点,如何判断?
--  作者:mr725
--  发布时间:2011/6/4 17:40:00
--  

Dim tr As WinForm.TreeView = Forms("定位树").Controls("TreeView1")

if tr.SelectedNode.nodes.count = 0

     return "是最低层啦"

end if

[此贴子已经被作者于2011-6-4 17:41:25编辑过]