目录树合并问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

前面有狐友提出过合并目录的问题，具体详见：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=132603

我也有如此需求，就是在一个目录树窗口中，有2个或更多的分类，根部彼此是并列的。按照上次蓝老师的回答，我测试了一下，也发现同样的问题，即程序立马死机，所以还是请蓝老师再看看问题到底出在哪里，谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.foxdb

一打开窗口项目就死机，忽略后面循环语句就不死机，代码如下：

Dim trv As WinForm.TreeView

trv = e.Form.Controls("TreeView1")

trv.BuildTree("表A", "类别|公司|产品")

trv.Nodes.Insert("表A", 0)

Do While trv.Nodes.Count > 1

trv.Nodes(1).MoveRight

Loop

Dim trv2 As WinForm.TreeView

trv2 = e.Form.Controls("TreeView1")

trv2.BuildTree("表A", "公司|类别|产品")

Dim node As WinForm.TreeNode = trv.Nodes.Add("按二类")

'For i As Integer = trv2.Nodes.Count - 1 To 0 Step - 1

' Dim nn As WinForm.TreeNode = trv2.Nodes(i)

' trv2.Nodes.RemoveAt(i)

' node.basenode.Nodes.Add(nn.basenode)

'Next

主题：目录树合并问题