主题：[求助]请老师帮助看一下“保存”按钮代码

你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