专家坐堂-按季度归类的treeviewFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

先提取日期列，然后从中再提取月，在逐一增加第一级node，然后在判断日期在不在月里面并增加二级node。

For i As Integer = 0 To CurrentTable.Rows.count

If timelist.Contains(CurrentTable.Rows(i)(CurrentTable.ColSel))=False Then

timelist.Add(CurrentTable.Rows(i)(CurrentTable.ColSel))

End If

Next \'\'先把筛选后的当列日期提取出来

Dim monthlists As new List (of Date)

For Each times As Date In timelist

If monthlists.Contains(times.Month)=False Then

monthlists.add(times.month)

End If

Next ‘’把日期列的月份提取出来。

Dim nd As WinForm.TreeNode

For Each monthlist As Date In monthlists

nd=tv.nodes.add(monthlist)

For Each times in timelist

if 如果日期在月度

nd.nodes.Add。。。。

endif