筛选树如何按日期年月？

如图，如果根据日期列，生成年份，月份的筛选数，然后又可以查找。注：已经用了分页加载

参考

http://www.foxtable.com/webhelp/scr/0917.htm

http://www.foxtable.com/webhelp/scr/2054.htm

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "S，ELECT DISTINCT Year(日期) As 年, Month(日期) As 月, 产品 From {订单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月|产品")

这样获取的是 年的数字 月的数字 能否在数据后面加上\'年\' \'月\' ？  "S，ELECT DISTINCT Year(日期)+\'年\' As 年, Month(日期)+\'月\' As 月, 产品 From {订单}"  ？？ 怎么写？

 生成后修改

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "年|月|产品")
For Each nd As WinForm.TreeNode In trv.Nodes
    nd.text = nd.Name & "年"
    For Each cnd As WinForm.TreeNode In nd.Nodes
        cnd.text = cnd.Name & "月"
    Next
Next
trv.Nodes.Insert("显示所有行",0)