Foxtable(狐表)用户栏目专家坐堂 → 目录树顶层节点


  共有4333人关注过本帖树形打印复制链接

主题:目录树顶层节点

帅哥,在线噢!
chen_sheng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:700 积分:6248 威望:0 精华:0 注册:2018/5/10 9:05:00
目录树顶层节点  发帖心情 Post By: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


如何获取顶层节点呢


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111421 积分:567181 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/9 19:53:00 [只看该作者]


 回到顶部
帅哥,在线噢!
chen_sheng
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:700 积分:6248 威望:0 精华:0 注册:2018/5/10 9:05:00
  发帖心情 Post By: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
按此在新窗口浏览图片



 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111421 积分:567181 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/10 9:09:00 [只看该作者]

Dim s As String = tr.SelectedNode.Text

 回到顶部