主题：[求助]目录树追加了新项,Datarow出现问题

Dim tr As WinForm.TreeView
tr = e.Form.Controls("TreeView1")
If tr.SelectedNode.DataRow("批准")<>"" Then -------> 代码出现问题: 未将对象引用设置到对象的实例。

    Messagebox.Show("已经批准,无需重复操作!")
Else
    If user.group="总经理" Then
        tr.SelectedNode.DataRow("批准")=User.Name
        tr.SelectedNode.DataRow("批准日期")=Date.Today
    Else
        Messagebox.Show("总经理才有权限批准,不能进行超越权限的操作!")
    End If
End If

请老师们指点,问题出在哪里?