主题：[求助]加节点问题

表A中的二个窗体：

Dim trv As WinForm.TreeView = Forms("工资").Controls("TreeView1")
Dim nd As WinForm.TreeNode = trv.SelectedNode
Dim str0 As String=trv.SelectedNode.fullpath '记下原始节点名称
Select Case vars("temp1")
    Case "1" '增加根节点
        nd = trv.Nodes.Add(e.Form.Controls("TextBox1").text )
        Dim dr As DataRow = DataTables("工资表").AddNew
        dr("工资表名") = nd
        dr("设置") = "字段名"
        Dim dr1 As DataRow = DataTables("工资表").AddNew

这段代码，既没加行，也没加节点，不知何故