- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教：如何用代码定位到内置筛选树的指定节点？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137043)
-- 发布时间：2019/6/27 8:01:00
-- 请教：如何用代码定位到内置筛选树的指定节点？
如题，谢谢！
-- 发布时间：2019/6/27 9:49:00
--
比如
For Each a As OBJECT In Tables("表A").grid.Parent.controls
For Each b As OBJECT In a.controls
If B.text = "筛选树" Then
Dim trv = b.controls(0).controls(0)
trv.visible = True
trv.Selectednode = trv.nodes(3)
End If
Next
Next
-- 发布时间：2019/6/27 10:39:00
--
谢谢！
-- 发布时间：2019/9/3 12:07:00
--
再问：以下代码可以循环内置筛选树的1、2级节点，如何循环所有节点？类似窗口目录树控件的AllNodes
For Each a As OBJECT In Tables("Code").grid.Parent.controls
For Each b As OBJECT In a.controls
If B.text = "筛选树" Then
Dim trv = b.controls(0).controls(0)
For ii As Integer = 0 To trv.nodes.count -1
For i As Integer = 0 To trv.nodes(ii).nodes.count -1
Output.Show(ii & "," & i & "," & trv.nodes(ii).nodes(i).text)
Next
Next
End If
Next
Next
-- 发布时间：2019/9/3 13:47:00
--
只能通过递归处理