主题：筛选树如何按日期年月

筛选树如何按日期年月？

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

此主题相关图片如下：qq截图20170922143022.png

参考

 

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)