问题可能在于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