以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]目录权问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72777)

--  作者:linswcfr
--  发布时间:2015/8/6 9:15:00
--  [求助]目录权问题

打开窗口生成目录树

节点为A,B,C(默认是关闭的)

 

节点A--子节点为A1,A2

节点B--子节点B1,

节点C--子节点为C1,C2,C3

 

选中节点A时展开子节点 ,关闭B,C

选中节点B时展开子节点,关闭A,C

选中节点C时展开子节点,关闭A,B

 

 

 


--  作者:大红袍
--  发布时间:2015/8/6 9:19:00
--  

BeforeExpandNode 事件

 

e.sender.CollapseAll


--  作者:linswcfr
--  发布时间:2015/8/6 9:28:00
--  

想单击节点名时执行,不是点+

 

还有没选中的节点不显示+(如果有下级节点的话)

[此贴子已经被作者于2015/8/6 9:29:23编辑过]

--  作者:大红袍
--  发布时间:2015/8/6 9:33:00
--  

AfterSelectNode 事件

 

e.sender.CollapseAll
e.Node.ExpandAll


--  作者:linswcfr
--  发布时间:2015/8/6 9:40:00
--  

同一个窗口中加入了table1,table2,table3(默认1在最上面,然后2,3)

 

三张表是重叠在一起的,选中目录树节点A是显示table1,选中B是显示table2,选中C是显示table3,这个要怎么实现了

[此贴子已经被作者于2015/8/6 9:40:45编辑过]

--  作者:大红袍
--  发布时间:2015/8/6 9:55:00
--  

If e.Node.Text = "表A" Then
   
    e.Form.Controls("Table1").Visible = True
   
    e.Form.Controls("Table2").Visible = False
   
    e.Form.Controls("Table3").Visible = False
   
ElseIf e.Node.Text = "表B" Then
   
    e.Form.Controls("Table1").Visible = False
   
    e.Form.Controls("Table2").Visible = True
   
    e.Form.Controls("Table3").Visible = False
   
End If


--  作者:linswcfr
--  发布时间:2015/8/6 10:02:00
--  

谢谢 大红袍老师

 

再请教这个问题,那个目录树的+能否隐藏了


--  作者:大红袍
--  发布时间:2015/8/6 10:23:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150806102256.jpg
图片点击可在新窗口打开查看

--  作者:linswcfr
--  发布时间:2015/8/6 10:28:00
--  
选中节点再显示+号,命令是?
--  作者:大红袍
--  发布时间:2015/8/6 10:30:00
--  
以下是引用linswcfr在2015/8/6 10:28:00的发言:
选中节点再显示+号,命令是?

 

这个做不到,只能整体改。

 

或者换一种思路,目录树默认没有子节点,点击的时候,才add上节点。