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

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

如题 求帮忙

 根据表内容生成？

 

http://www.foxtable.com/help/topics/2054.htm

 

http://www.foxtable.com/help/topics/0917.htm

 

 

不是根据表生成

 

想用 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

 

 

Dim cbx As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim d1 As Date = date.Now
Dim d2 As Date = DataTables("生产计划表").Compute("min(计划日期)","计划日期 is not null")
For i As Integer = d2.Year To d1.Year
    cbx.Items.Add(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

 

这样写对吗？？

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

 循环添加就行了啊。

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.Nodes.Clear
For i As Integer = 2015 To 2017
    Dim nd As WinForm.TreeNode = trv.Nodes.Add(i)
    For j As Integer = 1 To 12
        Dim cnd As WinForm.TreeNode = nd.Nodes.Add(j)
        Dim ds As Integer = Date.DaysInMonth(i, j)
        For k As Integer = 1 To ds
            Dim ccnd As WinForm.TreeNode = cnd.Nodes.Add(k)
        Next
    Next
Next