按图示操作或点击“删除”按钮后，再点击“保存”都会将目录树节点复制一遍，是何原因？

上述错误与定位行的方法有关吗？或者是当前行的问题......

此主题相关图片如下：image 1.jpg

 

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

点击浏览该文件:目录树-节点编辑.foxdb

你datacolchanged事件代码的问题。

systemready = False
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Tables("事件表").Current("目录树字符串") = ""
Tables("事件表").Current("目录树字符串") = trv.SaveToString()   \'写入目录树字符串

Dim nr As Row = Tables("事件表").current    \'写入节点名称
Dim str As String = ""
For Each nd As WinForm.TreeNode In trv.Nodes
    For Each cnd As WinForm.TreeNode In nd.AllNodes
        If cnd.Nodes.Count = 0 Then
            str &= cnd.FullPath.replace("\\", ",") & vbcrlf
        End If
    Next
Next
nr("文本") = str
systemready = True