以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树顶层节点  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185680)

--  作者:chen_sheng
--  发布时间:2023/3/9 18:08:00
--  目录树顶层节点
Dim tr As WinForm.TreeView = Forms(e.form.name).Controls("TreeView1")
Dim s As String = tr.SelectedNode.ParentNode.Text
msgbox(s)

Dim r As Row = Tables(e.form.name & "_Table1").AddNew
r("分类")=s


如何获取顶层节点呢


--  作者:有点蓝
--  发布时间:2023/3/9 19:53:00
--  
http://www.foxtable.com/webhelp/topics/0887.htm
--  作者:chen_sheng
--  发布时间:2023/3/10 9:07:00
--  
抱歉 问题没有完全表达清楚,想新增行获取目录树当前节点的text  在新增行的分类内直接赋值

Nodes

节点集合,可以通过此集合访问指定名称或位置的节点         不是指定的节点


Dim tr As WinForm.TreeView = Forms(e.form.name).Controls("TreeView1")
Dim s As String = tr.SelectedNode.ParentNode.Text
Dim r As Row = Tables(e.form.name & "_Table1").AddNew
r("分类")=s


此主题相关图片如下:2bacc97a-c06e-48dc-aff8-d1503764e03c.png
按此在新窗口浏览图片



--  作者:有点蓝
--  发布时间:2023/3/10 9:09:00
--  
Dim s As String = tr.SelectedNode.Text