15
18
153
注册会员
举报
107
500
3098
管理员
Dim tbl As SmEditTreeGrid Dim lstNode As New List(Of Node) Dim lstRowData As New List(Of RowData) For i As Integer = tbl.Rows.Fixed To tbl.Rows.Count-1 '如果当前行是节点并且还有子节点,则认为它是父节点 If tbl.Rows(i).IsNode AndAlso tbl.Rows(i).Node.Children>0 Then '添加到节点集合 lstNode.Add(tbl.Rows(i).Node) '添加到RowData集合 lstRowData.Add(tbl.Rows(i).GetRowData()) End If Next复制代码
admin 发表于 2023-6-1 13:12
Dim tbl As SmEditTreeGrid Dim lstNode As New List(Of Node) Dim lstRowData As New List(Of RowData) If tbl.SelectedNode IsNot Nothing Then Dim ndFather As Node=tbl.SelectedNode.Parent Do While ndFather IsNot Nothing '添加到节点集合 lstNode.Add(ndFather) '添加到RowData集合 lstRowData.Add(ndFather.Row.GetRowData()) '重新找到父节点 ndFather=ndFather.Parent Loop End If复制代码
本版积分规则 发表回复 回帖后跳转到最后一页
|Archiver|手机版|小黑屋|苏州三木软件科技有限公司 ( 苏ICP备2022038390号 )
苏公网安备 32058502010732号
GMT+8, 2025-8-7 08:24 , Processed in 0.075365 second(s), 21 queries .
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.