分区版面能否嵌入窗口？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

测试没有问题呀，什么地方有问题，需要什么效果？

指“加载数据”这个节点？我还以为加载数据是一个动作，就不能换一个更容易理解的名称么

把“加载数据”单独提取出来到外面判断，不要放到循环里面。

“加载数据”的勾选应该做成和其它节点是互斥的

if e.sender.nodes(0).checked then

"加载数据"已勾选加载所有数据

else

处理其它节点

endif

Dim trv As WinForm.TreeView = e.Sender

Dim flt As String

If trv.Nodes(0).Name = e.Node.Name

If e.Node.Checked

For Each nd As WinForm.TreeNode In trv.AllNodes

nd.Checked = False

e.Node.Checked = True

Else

flt = "1=2"

End If

Else

trv.Nodes(0).Checked = False

Dim nms As String() = {"团体赛或个人赛","棋赛名称","所属团体或个人分组","姓名"} '指定生成目录树的各列

Dim qts As String() = {"'","'","'","'"} '指定将各列的值括起来的符号,这里都是字符型,所以都是单引号

Dim n As WinForm.TreeNode = e.Node.ParentNode

Do While n IsNot Nothing '取消父节点的选中标记,因为选中子节点,就不要选中父节点了

n.Checked = False

n = n.ParentNode

Loop

For Each nd As WinForm.TreeNode In e.Node.Nodes

nd.Checked = e.Node.Checked

For Each nd As WinForm.TreeNode In trv.AllNodes

If nd.Checked Then

Dim rts() As String = nd.FullPath.Split("\")

Dim val As String = ""

For i As Integer = 0 To rts.length - 1

If val > "" Then

val = val & " And "

End If

val = val & nms(i) & " = " & qts(i) & rts(i) & qts(i)

If flt > "" Then

flt = flt & " Or (" & val & ")"

Else

flt = val

End If

With DataTables("基本信息")

.LoadFilter = flt '设置加载条件

.LoadPage = 0 '加载第一页

.LoadTop = 20 '每页5行

.LoadOrder = "棋赛名称 desc,团体赛或个人赛,所属团体或个人分组,姓名"

.LoadReverse = True

.Load()

e.Form.Controls("TextBox3").Value = 1 & "/" & .TotalPages

End With

帮助搜“递归”，学习思考一下怎么处理下层节点

SelectedPage

返回或者设置导航栏选定的页面

示例

选定名称为"Task"的页面：

Dim Bar As WinForm.NavBar
Bar = e.Form.Controls("NavBar1")
Bar.SelectedPage = Bar.NavPages("Task") Task是控件名称，不是标题，控件页面有指定名称吗？

图片点击可在新窗口打开查看此主题相关图片如下：1.png

Dim n As WinForm.TreeNode = e.Node.ParentNode

For Each nd As WinForm.TreeNode In e.Node.AllNodes

nd.Checked = e.Node.Checked

if n isnot nothing then

dim chhh as Boolean = true

For Each nd As WinForm.TreeNode In n.Nodes

If nd.Checked = false Then

chhh = false

exit for

End If

n.Checked = chhh

[此贴子已经被作者于2020/7/24 14:03:44编辑过]

同样的方法，再向上循环或者递归父节点判断咯。推一下才能走一步？

我只能说这是属于死读书，读死书的那种。谁规定递归只能向下递归，谁规定递归一定要使用函数的？

Dim n As WinForm.TreeNode = e.Node.ParentNode

For Each nd As WinForm.TreeNode In e.Node.AllNodes

nd.Checked = e.Node.Checked

Do While n IsNot Nothing

Dim chhh As Boolean = True

For Each nd As WinForm.TreeNode In n.Nodes

If nd.Checked = False Then

chhh = False

Exit For

End If

n.Checked = chhh

n = n.ParentNode

Loop

呵呵，抱歉。只是就事论事，不是针对谁。有问题欢迎继续提问。

主题：分区版面能否嵌入窗口？