- 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)
-- 发布时间：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
-- 发布时间：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