主题：打开目录树窗口节点停留位置问题

按“有点蓝”老师的提示，我在打开窗口的AfterLoad 事件写了下面的代码，但还是不行。下面的代码在打开窗口的时候，总是停留在一个地方，不会随着选择目录节点进行变化。还请老师再指点！谢谢！
Dim v1 As String = Tables("支出项目明细窗口_table1").Current("科目名称")
For Each ndd As WinForm.TreeNode In tr.AllNodes
    If ndd.Text.IndexOf(v1) >= 0 Then
        tr.StopRedraw()
        tr.SelectedNode = ndd
        ndd.EnsureVisible()
        tr.ResumeRedraw()
        Exit For
    End If
Next
这是错误的图像：
此主题相关图片如下：有问题的目录树选择.gif