主题：目录树请教

 如下

    

      

    

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

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

 意思是找到上一个节点和下一个节点在表中的位置，然后插入。

 你的例子没有确定按钮，出错的发上来。

  测试没有问题。

 

 _Identify 是唯一的递增的；

 

 _Sortkey 用来排序；

 

 index 是 Table的行号。

 出错是这个问题

 

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

 

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

 

 比如，类似结构。

 

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