主题：能否设计出折叠式可计算可编辑table

你把窗口AfterLoad事件的代码，写到DataColChanged事件去。也就是重新生成目录树。

datacolchanged事件

Select Case e.DataCol.name
    Case "工程名称", "标段名称", "单位工程", "专业工程"
        If Forms("目录树").Opened Then
            Dim trv As WinForm.TreeView = Forms("目录树").Controls("TreeView1")
            trv.BuildTree("项目结构","工程名称|标段名称|单位工程|专业工程")
            For Each nd As WinForm.TreeNode In trv.AllNodes
                nd.tag = nd.DataRow("_Identify")
            Next
        End If
End Select

AfterEditNode事件

If e.NewText = "" Then
    e.Cancel = True
    Return
End If
Dim pth() As String = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        DataTables("项目结构").ReplaceFor("工程名称",e.NewText,"工程名称 = '" & pth(0) & "'")
    Case 1
        DataTables("项目结构").ReplaceFor("标段名称",e.NewText,"工程名称 = '" & pth(0) & "' And 标段名称 = '" & pth(1) & "'")
    Case 2
        DataTables("项目结构").ReplaceFor("单位工程",e.NewText,"工程名称 = '" & pth(0) & "' And 标段名称 = '" & pth(1) & "' And 单位工程 = '" & pth(2) & "'")
    Case 3
       DataTables("项目结构").ReplaceFor("专业工程",e.NewText,"工程名称 = '" & pth(0) & "' And 标段名称 = '" & pth(1) & "' And 单位工程 = '" & pth(2) & "' and 专业工程 = '"& pth(3) & "'")
End Select
e.Node.Name = e.NewText