以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于树的重新加载(先清除树的旧内容)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43893)

--  作者:zhengboxin
--  发布时间:2013/12/18 13:12:00
--  [求助]关于树的重新加载(先清除树的旧内容)

我设计了个窗口,有一个按钮点击下会将TreeView1树的内容按如下代码生成

Dim tr As WinForm.TreeView = Forms("主界面").Controls("TreeView2")
Dim nd1 As WinForm.TreeNode
nd1 = tr.Nodes.Add("a0","全部","Next.ico")
nd1 = tr.Nodes.Add("a1","按业务员","Next.ico")

我需要在点击按钮后先把原先的树的内容清除了,然后再运行代码就对了,现在每点一下就一直往下加,如下图:


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20131218130828.jpg
图片点击可在新窗口打开查看

 

各位老师有空解答下,清除树的内容的代码该怎么写,万发感谢


--  作者:blackzhu
--  发布时间:2013/12/18 13:19:00
--  
Dim tr As WinForm.TreeView = Forms("主界面").Controls("TreeView2")
Tr.Nodes.clear

--  作者:zhengboxin
--  发布时间:2013/12/18 13:21:00
--  
谢谢老师,就是这个,找了半天帮助没找到,再次感谢