主题：FindRow这个是不是有BUG啊？

问题可能在于e.Sender.SelectedNode之上，你需要加上一个判断：

if e.Sender.SelectedNode is nothing

  你自己要的控制代码

else

    If tb.Position >=0
        tb.Position = tb.FindRow("模块名称 = '" & e.Sender.SelectedNode.Name & "'And 对象窗口 is Null And 对象名称 is Null ")
    End If

end if