[讨论]TreeView1索引超出了数组界限 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

递归会计科目后，想直接引用如图圈的科目，结果出现TreeView1索引超出了数组界限，

此主题相关图片如下：索引超出了数组界限.png

首先

我在TreeView1窗口NodeMouseDoubleClick事件的代码是

Dim str As String = ""

For Each s As String In e.Node.FullPath.split("\")

str &= s.Split(" ")(1) & "\"

CurrentTable.Value = str.trim("\")

如果把该窗口中AfterLoad的

代码一：

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim rts() As String = {"全部","资产","负债","共同","权益","成本","损益"}

Dim nd As WinForm.TreeNode

Dim dt As DataTable = DataTables("科目")

tr.StopRedraw()

tr.Nodes.Clear

For Each rt As String In rts

tr.Nodes.Add(rt)

For Each dr As DataRow In dt.Select("", "科目代码")

If dr.IsNull("科目代码") = False AndAlso dr("科目代码").Length = 4 Then

Dim i As Integer = CInt(dr("科目代码").Substring(0,1))

nd = tr.Nodes(i).Nodes.Add(dr("科目代码"),dr("科目代码") & " " & dr("科目名称"))

Functions.Execute("AddChildren",nd,dt)

End If

tr.ResumeRedraw()

改成
代码二：

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim nd As WinForm.TreeNode

Dim dt As DataTable = DataTables("科目")

tr.StopRedraw()

tr.Nodes.Clear

tr.Nodes.Add("全部")

For Each dr As DataRow In dt.Select("","科目代码")

If dr.IsNull("科目代码") = False AndAlso dr("科目代码").Length = 4 Then

nd = tr.Nodes.Add(dr("科目代码"),dr("科目代码") & " " & dr("科目名称"))

Functions.Execute("AddChildren",nd,dt)

End If

tr.ResumeRedraw()

这样就能正常引用，但我还是想用代码一的方式来体现递归科目，应如何改TreeView1窗口NodeMouseDoubleClick事件的代码？内部函数我跟帮助案例里的一样

主题：[讨论]TreeView1索引超出了数组界限