主题：[求助]如何动态管理目录树

点击一级和二级节点出现如上问题，索引超出了数组界限

已经解决，代码如下，非常感谢

If e.Node.Level = 0 Then
    Dim Vals() As String = e.Node.FullPath.Split("\")
    Dim Filter As String = "[一级费用类别] = '" & Vals(0) & "' "
    Tables("费用类别").Position = Tables("费用类别").findRow(Filter,0,False)
ElseIf e.Node.Level = 1 Then
    Dim Vals() As String = e.Node.FullPath.Split("\")
    Dim Filter As String = "[一级费用类别] = '" & Vals(0) & "'and [二级费用类别] = '" & Vals(1) & "' "
    Tables("费用类别").Position = Tables("费用类别").findRow(Filter,0,False)
ElseIf e.Node.Level = 2 Then
    Dim Vals() As String = e.Node.FullPath.Split("\")
    Dim Filter As String = "[一级费用类别] = '" & Vals(0) & "'and [二级费用类别] = '" & Vals(1) & "' and [三级费用类别] = '" & Vals(2) & "' "
    Tables("费用类别").Position = Tables("费用类别").findRow(Filter,0,False)
End If