主题：目录树请教

 出错是这个问题

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=53520

 

请问子节点上移下移出现错误？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:目录树请教.zip

 如果是子节点，又要另外写一套移动的代码的。所以，不建议你修改目录树的时候同步修改表，你最后点击保存的时候，再把树生成表吧。

 

 比如，类似结构。

 

select case e.node.level

 

case 0

 

case 1

    Dim fdr As DataRow = DataTables("表A").Find("区域 = '" & xxx & "' 企业 = '" & yyy & "'", "_Sortkey")

end select

 写了一下，发觉实时改变表是很不实际的事，很容易出错。

 

 建议你还是直接用一个保存按钮生成树吧

 

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim dt As DataTable = DataTables("表A")
dt.DataRows.Clear
For Each nd As WinForm.TreeNode In tr.AllNodes
    If nd.Nodes.Count = 0 Then
        Dim ary() As String = nd.FullPath.Split("\")
        Dim ndr As DataRow = dt.AddNew
        ndr("区域") = ary(0)
        ndr("企业") = ary(1)
    End If
Next

谢谢！高招！写软件的思路、算法、流程相当的重要，功夫不到家是不行的！何时来宁，招呼一声，请您喝酒，面授几招。