主题：[求助]目录树追加了新项,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

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

你新增项的时候，datarow是不会帮你绑定的。你可以不操作。

If tr.SelectedNode.DataRow Is Nothing Then

    return

End If

或者是，你新增的时候记录一下主键

节点.tag = 新增行("_Identify")

然后，如是tr.SelectedNode.DataRow Is Nothing的情况，就根据tag去查找那行数据。

没必要重新生成一次。

你新增的时候记录一下主键

节点.tag = 新增行("_Identify")

然后，如是tr.SelectedNode.DataRow Is Nothing的情况，就根据tag去查找那行数据。

Dim nr As Row = Tables("表A").AddNew

Dim nd As WinForm.TreeNode = tr.Nodes.Add("12345")

nd.tag = nr("_Identify")