主题：addnew的数据不能保存到数据库吗?

老师, 通过addnew添加的数据能否保存到数据库中 ?

为什么 Datatable ("表A") . load 之后添加的数据就没了呢 ?

If e.node.Checked Then
    Dim r As Row = t.AddNew
    r("所属团队") = "公司"
    r("Name") = na
    r("父键") = e.Node.ParentNode.Text
    r("控件名称") = e.Node.Text
    r("控件标题") = mc.DataRows(0)("控件标题")
    r("不可用") = True
    r("控件类型") = mc.DataRows(0)("类型")
    r.Save()
    For Each nd As WinForm.TreeNode In e.node.AllNodes  '同步子节点选中状态

        If nd.FullPath.StartsWith(e.node.FullPath) Then
            cmd.CommandText = "sele ct * from 系统控件 where 控件名称 = '" & nd.Name  & "' and 父键 = '" & nd.ParentNode.name  & "' "
            mc = cmd.ExecuteReader
            Dim r2 As Row = t.AddNew
            r2("所属团队") = "公司"
            r2("Name") = na
            r2("父键") = nd.ParentNode.Text
            r2("控件名称") = nd.Text
            r2("控件标题") = mc.DataRows(0)("控件标题")
            r2("不可用") = True
            r2("控件类型") = mc.DataRows(0)("类型")
            r2.Save()
        End If
    Next
Else
    t.DataTable.deletefor(" Name ='" & na & "' and 父键 = '" & mc.DataRows(0)("父键") & "'  and  控件名称 = '" & e.node.text & "' and  不可用 = 1 ")
    pd = e.node.ParentNode '获取父节点
    Do While pd IsNot Nothing
        t.DataTable.deletefor(" Name ='" & na & "' and  控件名称 = '" & pd.text & "' and  不可用 = 1 ")
        pd  = pd.ParentNode '继续获取上一层级的父节点
    Loop
End If
t.DataTable.Load()