- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 重新加载窗口或刷新窗口 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171440)
-- 发布时间：2021/8/30 13:02:00
-- 重新加载窗口或刷新窗口
老师，请问能重装加载或刷新窗口吗？或是说刷新窗口中的TreeView插件。
-- 发布时间：2021/8/30 13:05:00
--
老师，或是能够实现某个节点下所有的子节点也可以。例如想清除 名为 "报表" 下的所有子节点。
Dim tr As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")
tr.Nodes.Clear
-- 发布时间：2021/8/30 13:38:00
--
选中 "报表" 节点，然后参考代码
Dim tr As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")
tr.selectednode.Nodes.Clear
tr = Forms("窗口1").Controls("TreeView1")
tr.selectednode.Nodes.Clear
-- 发布时间：2021/8/30 23:14:00
--
谢谢老师！
-- 发布时间：2021/8/31 10:47:00
--
老师，因为我这个是在别的窗口操作关联到这个窗口的目录树，所以没有去选择那个窗口的目录树插件去选择那个节点再增加清除的代码，
需要直接以 节点名称 以标准，删除对应节点名称下的所有下级节点 （查找的这个节点不需要删除，只清除他的全部下级节点就是了）
请问老师，这个定位到这个名字的这个节点的代码如何编写，
（If e.Node.Text = "报表" Then
End If） 这个节点是点击报表这个节点，我没有点击的操作，直接就是删除某个节点名字下的明细节点，老师这个组合在一起还是不会，：）
-- 发布时间：2021/8/31 10:57:00
--
Dim tr As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")
For Each nd As WinForm.TreeNode In tr.AllNodes
If nd.Text = "" Then
nd.Nodes.Clear
Exit For
End If
Next
-- 发布时间：2021/8/31 11:03:00
--
谢谢老师！！！
