以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求层级节点行列的值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194320)

--  作者:zhuxinhui
--  发布时间:2024/11/28 9:01:00
--  求层级节点行列的值
Dim trv = e.Form.Controls("LayersTree1").basecontrol
If trv.Selectednode IsNot Nothing AndAlso trv.Selectednode.fullpath = "显示所有行" Then
Tables("基础资料").Filter = "[代码] = [classID]"
Tables("基础资料").SetColVisibleWidth("代码|60|名称|120|存货科目|255")

想通过点击层级目录树节点行某列的值,来加载表的列,值不同加载的列就不同
如何求出点击节点行某列的值呢

--  作者:有点蓝
--  发布时间:2024/11/28 9:03:00
--  
没有办法获取
--  作者:zhuxinhui
--  发布时间:2024/11/28 9:12:00
--  
老师的意思是不是,只能求得点击层级节点的名称外,当前行的值都不能求出来吗?


--  作者:zhuxinhui
--  发布时间:2024/11/28 9:18:00
--  
可不可以求出当前点击层级的第二级节点名
图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20241128091719.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2024/11/28 9:24:00
--  
http://www.foxtable.com/webhelp/topics/0906.htm


--  作者:zhuxinhui
--  发布时间:2024/11/28 10:18:00
--  
Dim trv = e.Form.Controls("LayersTree1").basecontrol
返回父节点不行

另外,我想返回当前节点的指定节点,例如我点的是第四节点,求期第一节点名

--  作者:有点蓝
--  发布时间:2024/11/28 10:30:00
--  
FullPath
--  作者:zhuxinhui
--  发布时间:2024/11/28 11:00:00
--  
现在使用拆分进行识别,但是单击时,下面的代码不起作用,双击就起作用,是什么回事
Dim trv = e.Form.Controls("LayersTree1").basecontrol
Dim str As String = trv.Selectednode.FullPath
Dim d3() As String = str.split("\\")
If trv.Selectednode IsNot Nothing AndAlso trv.Selectednode.fullpath = "显示所有行" Or d3(0) = "显示所有行" Then
   单击时不起作用: Tables("基础资料").Filter = "[代码] = [classID]"
    单击时不起作用:  Tables("基础资料").SetColVisibleWidth("代码|60|名称|120|存货科目|255")




--  作者:有点蓝
--  发布时间:2024/11/28 11:06:00
--  
请上传实例说明
--  作者:zhuxinhui
--  发布时间:2024/11/28 11:24:00
--  
如何将“显示所有行”不显示出来