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