Dim cmd As New s q l Command
Dim dt As DataTable
cmd.CommandText = "Select Distinct Year(日期) As 年, Month(日期) As 月,day(日期) as 日, 产品 From {订单} where 日期 >#" & date.today.adddays(-60) & "#"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月|日|产品")
trv.Nodes.Insert("显示所有行",0)