以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  单列生成目录  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78681)
--  作者：hjcslr
--  发布时间：2015/12/14 22:48:00
--  单列生成目录
DataTables("部门架构").DataRows.Clear

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In tr.AllNodes
Dim r As Row = Tables("部门架构").AddNew
r("级码") = nd.FullPath
r("部门名称") = nd.Text
Next

DataTables("部门架构").Save
MessageBox.Show("保存成功!")

在保存时不清除原来的数据 ，只是更新，代码如何写？？
--  作者：大红袍
--  发布时间：2015/12/14 22:52:00
--  

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In tr.AllNodes
    Dim fdr As DataRow = DataTables("部门架构").find("级码 = \'" &  nd.FullPath & "\'")
    If fdr Is Nothing Then
        fdr = DataTables("部门架构").AddNew
    End If
    fdr("级码") = nd.FullPath
    fdr("部门名称") = nd.Text
Next
--  作者：hjcslr
--  发布时间：2015/12/14 23:37:00
--  
移动节点等会出现问题，能不能修改后
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:部门目录树.foxdb
--  作者：大红袍
--  发布时间：2015/12/15 9:29:00
--  

节点有dataRow属性

 

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In tr.AllNodes
    Dim r As DataRow = nd.DataRow
    If r Is Nothing Then
        r = DataTables("部门架构").AddNew
    End If
    r("级码") = nd.FullPath
    r("部门名称") = nd.Text
Next

DataTables("部门架构").Save
MessageBox.Show("保存成功!")