我叠加了一个目录树了，把可见性设为False，代码写成这样，还是不能预览。
Dim cmd As New SQLCommand
Dim dt As DataTable
'cmd.C '内部数据源,这行代码不需要
cmd.CommandText = "SELECT [_Identify],分类,住址_序号,住址_巷,住址_号,住址_房,Year(日期) As 年, Month(日期) As 月,户主姓名,手机号码,车牌号码 Fro m {车辆基本信息}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView2")
trv.BuildTree(dt,"住址_巷|住址_号|住址_房|户主姓名|手机号码|车牌号码","[分类] = '月租停车'","住址_序号,住址_号,住址_房")
'trv.Nodes.Insert("加载临时停车数据",0)
trv.Nodes.Insert("月租停车",0)
Do While trv.Nodes.Count > 1
trv.Nodes(1).MoveRight
Loop
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView3")
trv2.BuildTree(dt,"年|月|车牌号码","[分类] = '临时停车'","年 DESC,月 DESC")
'trv2.Nodes.Insert("加载临时停车数据",0)
Dim node As WinForm.TreeNode = trv.Nodes.Add("临时停车")
For i As Integer = trv2.Nodes.Count - 1 To 0 Step -1
Dim nn As WinForm.TreeNode = trv2.Nodes(i)
trv2.Nodes.RemoveAt(i)
node.basenode.Nodes.Add(nn.basenode)
Next
'加载第一页数据
With DataTables("车辆基本信息")
.LoadFilter = "" '清除加载条件
.LoadPage = 0 '加载第一页
.LoadTop = 20 '每页5行
.LoadOrder = "分类,住址_序号,住址_号,住址_房"
.LoadReverse = True
.Load()
e.Form.Controls("TextBox2").Value = 1 & "/" & .TotalPages
End With
加好友 
发短信
Post By：2021/2/18 12:41:00 [只看该作者]
此主题相关图片如下：qq图片20210218121615.png
