这段目录树代码还有不如人意：
Dim nms As String() = {"棋赛名称","团体赛或个人赛","所属团体或个人分组","姓名"} '指定生成目录树的各列
Dim qts As String() = {"'","'","'","'"} '指定将各列的值括起来的符号,这里都是字符型,所以都是单引号
Dim trv As WinForm.TreeView = e.Sender
Dim flt As String
Dim nd As WinForm.TreeNode
For Each nd In e.node.allNodes '清除子节点的选中标记
nd.Checked = False
Next
nd = e.Node.ParentNode
Do While nd IsNot Nothing '清除父节点的选中标记
nd.Checked = False
'nd = nd.ParentNode
Loop
If e.node.Text = "加载数据" Then
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
tab.SelectedIndex = 0
flt = ""
End If
For Each nd 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)
Next
If flt > "" Then
flt = flt & " Or (" & val & ")"
Else
flt = val
End If
End If
Next
DataTables("比赛积分").LoadFilter = flt
DataTables("比赛积分").Load()
With DataTables("比赛积分")
.LoadFilter = flt '设置加载条件
.LoadPage = 0 '加载第一页
.LoadTop = 20 '每页5行
.LoadOrder = "棋赛名称,团体赛或个人赛,所属团体或个人分组,轮赛次数值转换 DESC,上轮止累计积分 DESC,曾交战对手累计积分 DESC"
.LoadReverse = True
.Load()
e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End With
1、加载数据是去除选中才显示，打勾不显，我要上下统一，所有节点都是打勾显示，去除不显示，我弄了好久都没法把效果实现。
2、在目录树里写这代码需可实现定位到显示表，但只限于勾选加载数据，最理想的定位还是做在导航栏页面按钮上，点击进入后，执行一次就行，任意点击目录树字节都不会反复执行。
我在导航栏的任务栏里实现了点击文字按钮自动定位到集合页面，但那是在任务栏里实现，不是在导航栏页面按钮。
Select Case e.Link.Text
Case "比赛积分"
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
tab.SelectedIndex = 0
Case "基本信息"
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
tab.SelectedIndex = 1
Case "分组"
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
tab.SelectedIndex = 3
End Select
加好友 
发短信
Post By：2020/7/11 22:28:00 [显示全部帖子]
此主题相关图片如下：qq图片20200717172322.png