主题：[求助]新增目录树节点

子节点赋值的时候把所有信息都带上。

        Dim dr As DataRow
        dr = DataTables("目录树_Table3").AddNew()
        dr("项目") = Tables("目录树_Table1").Current("项目")
        dr("目录类别") = Tables("目录树_Table1").Current("目录类别")
        dr("目录名称") = Tables("目录树_Table2").Current("目录名称")
        dr("子优先级") = Tables("目录树_Table1").Current("子优先级")
        dr("规格型号") = Val
        dr.save()