主题：求助

截图见下图：

 

此主题相关图片如下：qq图片20150625171607.png

窗口中目录树依据所有者表生成，上面两个表与下面的表建立了关联,三个表中数据列企业名称、证照名称列内容编辑后，以及通过增加行、删除行、克隆行按钮操作三个表后，希望目录树同步更新。用全局表事件datacolchanged能否实现？或者用在窗口中设置一个不可见按钮，click事件代码为生成目录树的代码，然后用performclick模拟触发实现？

最好就是,做个刷新按钮. 然后点击刷新.

谢谢！

我想实现自动更新目录树，不用全局表事件（效率低），还有办法没？

 写到datacolchanged事件去即可。

谢了！

所有者表datacolchanged事件代码如下：

 

Select Case e.DataCol.Name
    Case "企业名称","证照名称"
        If Forms("企业证照管理").Opened Then
            Dim trv As WinForm.TreeView = Forms("企业证照管理").Controls("TreeView1")
            trv.BuildTree("证照内容","企业名称|证照名称")
            trv.Nodes.Insert("显示所有企业证照",0)
            trv.ExpandAll
        End If
End Select

 

 

应该解决问题了吧？

谢谢两位老师指导！

好像删除行和添加行后不能自动更新。还要在所有者表datarowdeleted事件和datarowaddeg事件设置重建目录树代码如下：

Dim trv As WinForm.TreeView = Forms("企业证照管理").Controls("TreeView1")
trv.BuildTree("证照内容","企业名称|证照名称")
trv.Nodes.Insert("显示所有企业证照",0)
trv.ExpandAll

两位老师，我理解的对不？

 添加行可以不加代码；

 

 删除行，添加一下代码

明白了！谢谢！