以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  目录树管理表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144381)

--  作者：13775189031 --  发布时间：2019/12/18 14:03:00 --  目录树管理表 目录树管理表，现在按下面的代码是两级目录树，如果在增加一级该怎么改？ Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") Dim nd As WinForm.TreeNode nd = Trv.Nodes.Add("基础信息","基础信息") If Tables("事业部人员清单").visible = True     nd.Nodes.Add("事业部人员清单") End If If Tables("人员信息表").visible = True     nd.Nodes.Add("人员信息表") End If nd = Trv.Nodes.Add("合同信息","合同信息") If Tables("合同台账").visible = True     nd.Nodes.Add("合同台账") End If If Tables("合同评审").visible = True     nd.Nodes.Add("合同评审") End If

--  作者：有点蓝 --  发布时间：2019/12/18 14:12:00 --   Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") Dim nd As WinForm.TreeNode nd = Trv.Nodes.Add("基础信息","基础信息") If Tables("事业部人员清单").visible = True     Dim nd2 As WinForm.TreeNode = nd.Nodes.Add("事业部人员清单") nd2.Nodes.Add("xxxx清单") End If 或者递归看一看：http://www.foxtable.com/webhelp/topics/2416.htm

--  作者：13775189031 --  发布时间：2019/12/19 14:00:00 --   Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") Dim nd As WinForm.TreeNode nd = Trv.Nodes.Add("基础信息","基础信息") If Tables("事业部人员清单").visible = True     Dim nd2 As WinForm.TreeNode = nd.Nodes.Add("事业部人员清单") nd2.Nodes.Add("xxxx清单") End If 按这个代码，目录树可显示，但点击目录书中的“***清单”，主表中不显示此表！

--  作者：有点蓝 --  发布时间：2019/12/19 14:31:00 --   点击代码也要做相应的改动吧

--  作者：13775189031 --  发布时间：2019/12/19 14:50:00 --   明白了！谢谢！