学会调试
For Each dr As DataRow In dt.Select("", "科目代码")
If dr.IsNull("科目代码") = False AndAlso dr("科目代码").Length = 4 Then
Output.Show(dr("科目代码"))
Dim i As Integer = CInt(dr("科目代码").Substring(0, 1))
Output.Show("i=" & i )
nd = tr.Nodes(i).Nodes.Add(dr("科目代码"), dr("科目代码") & " " & dr("科目名称"))
Functions.Execute("AddChildren",nd,dt)
End If
Next
目录树根节点只有6个,索引从0~5:Dim rts() As String = {"全部","资产","负债","权益","成本","损益"}
dr("科目代码")有6开头的,i=6的时候tr.Nodes(i)出错,因为不存在索引为6的节点