主题：出现一个“索引超出了数组界限”的错误，各位老大帮忙看看，谢谢

 分隔符要改一下

If e.Node.Level = 2 AndAlso Forms("录入窗口").Opened Then
    Dim arys() As String = e.Node.FullName.Split("\")
    Forms("录入窗口").Controls("TextBox1").Text = arys(0) & arys(1) & arys(2)
    Forms("录入窗口").Controls("TextBox2").Text = e.Node.Text.Split(" ")(1)
    e.Form.Close
End If

什么意思？直接用例子，或者拷贝代码即可。