我按照蓝老师的代码测试了一下,也发现一打开窗口项目就死机,忽略后面循环语句就不死机,还是请蓝老师耐心看看到底是什么原因?
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 14:20:12编辑过]