主题：请老师帮忙检查下代码是否有问题！

窗口AfterLoad事件：按年月日，“完成质检”是逻辑列！！

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT DISTINCT Year(日期) As 年, Month(日期) As 月, Day(日期) As 日, 完成质检 From {质检管理}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"年|月|日|完成质检")
trv.Nodes.Insert("加载所有数据",0)

'加载第一页数据
With DataTables("质检管理")
    .LoadFilter = "" '清除加载条件
    .LoadPage = 0 '加载第一页
    .LoadTop = 200 '每页200行
    .Load()
    e.Form.Controls("TextBox2").Value = 1 & "/" & .TotalPages
End With

Bin老师，如果我想改成按“完成质检”，“年”“月”“日”这样的顺序设计夹在书，该如何写代码呢！