主题：目录树

Dim cmd1 As New SQLCommand

Dim dt1 As DataTable

'cmd.C '内部数据源,这行代码不需要

cmd1.CommandText = "SELECT DISTINCT 分类,住址_序号,住址_巷,住址_号,住址_房,Year(日期) As 年, Month(日期) As 月,户主姓名,手机号码,车牌号码 Fro m {缴费情况}"

dt1 = cmd1.ExecuteReader()

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")

trv1.BuildTree(dt1,"住址_巷|住址_号|住址_房|户主姓名|手机号码|车牌号码","[分类] = '" & dt1.DataRows(0)("分类") & "'","住址_序号,住址_号,住址_房")

trv1.Nodes.Insert(dt1.DataRows(0)("分类"),0)

Do While trv1.Nodes.Count > 1

    trv1.Nodes(1).MoveRight

Loop

Dim fls1 As List(Of String) = dt.SQLGetValues("分类","[分类] <> '" & dt1.DataRows(0)("分类") & "'","")

For Each fl1 As String In fls

    Dim trv4 As WinForm.TreeView = e.Form.Controls("TreeView4")

    trv4.BuildTree(dt1,"年|月|车牌号码","[分类] = '" & fl1 & "'","年 DESC,月 DESC")

    trv1.Nodes.Insert("显示所有数据",0)

    Dim node1 As WinForm.TreeNode = trv1.Nodes.Add(fl1)

    For i As Integer = trv4.Nodes.Count - 1 To 0 Step -1

        Dim nn As WinForm.TreeNode = trv4.Nodes(i)

        trv4.Nodes.RemoveAt(i)

        node1.basenode.Nodes.Add(nn.basenode)

    Next

Next

'加载第一页数据

With DataTables("缴费情况")

    .LoadFilter = "" '清除加载条件

    .LoadPage = 0 '加载第一页

    .LoadTop = 20 '每页5行

    .LoadOrder = "日期 DESC,单号 DESC"

    .LoadReverse = True

    .Load()

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

End With