主题：目录树节点报错

老师帮我看下这段NodeMouseClick代码有什么问题：

If e.Node.Level = 1 Then '如果单击的是第二层节点
    Dim ps() As String = e.Node.FullPath.Split("\")
    Dim tr As Row = Tables("B超结果").Current
    Dim dr As DataRow = DataTables("B超字典").Find("B超结论 = '" & ps(0) & "' And 检查所见 = '" & ps(1) & "'")
    If dr IsNot Nothing Then '如果在B超字典表找到对应的行,则将此行的值写入B超结果表的当前行.
        tr("B超结论") = dr("B超结论")
        tr("检查所见") = dr("检查所见")
        e.Form.DropDownBox.Value = tr("检查所见") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    End If
    e.Form.DropDownBox.CloseDropdown()
End If

采用的是在窗口输入的方式，单击目录树输入，目录树嵌入到当前窗口，同时目录树节点均是来自数据表，单击节点时输入当前表当前行结果已经生效，但是每次都有以下报错：

未将引用对象设置到对象的实例

问题出在什么地方？怎么解决？谢谢老师！