一打开窗口项目就死机，忽略后面循环语句就不死机，代码如下：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
加好友 
发短信
Post By：2022/8/11 15:13:00 [显示全部帖子]
