以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  目录树合并问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179176)
--  作者：njzwm
--  发布时间：2022/8/11 15:13:00
--  目录树合并问题
前面有狐友提出过合并目录的问题，具体详见：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
--  作者：有点蓝
--  发布时间：2022/8/11 15:15:00
--  
不已经回复了吗！！

要使用2个目录树，改漏了

trv2=e.Form.Controls("TreeView1")
改为
trv2=e.Form.Controls("TreeView2")