主题：如何做一个年月日的目录树？

如何做一个年月日的目录树？

如题 求帮忙

不是根据表生成

 

想用 COMbobox 下拉选择年

 

然后   出现 想

 

2015  

1月

2月

3月

。。。

12月

 

每月 包含 1 2 3  - 每一日

 

 

还有1个问题

找了找 如何 添加combobox  动态添加值都没找到

我想 date。now  直到 我表中 最早 一天的  年份差 ，然后加载时添加到 combobox 里面

 

是不是

Dim n As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim d1 As Date
Dim d2 As DataRow = DataTables("生产计划表").Find("_Identify >= 0","计划日期")
Dim d2d As Date = d2("计划日期")
Dim d  As Integer = d1.Year - d2d.Year
For i As Integer = 0 To d
n.Items.Add(Date.now.Year - i)    这句那里错了？

Next

 

 

2015  

1月

2月

3月

。。。

12月

 

每月 包含 1 2 3  - 每一日

 

 

这个怎么用目录树做出来呢？

 

Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim cob As WinForm.ComboBox = e.Form.Controls("ComboBox1")
tv.Nodes.Add(cob.Text & "年")
For i As Integer  = 1 To 12
tv.Nodes(0).Nodes.Add(i & "月")
For y As Integer = 1 To Date.DaysInMonth( Val(cob.Text) , i)
tv.nodes(1).Nodes.Add(y)
Next
Next
tv.ExpandAll

 

这样写对吗？？

加载 日的时候，第一个月九出错了！！