如何做一个年月日的目录树？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何做一个年月日的目录树？

共有2689人关注过本帖树形打印复制链接主题：如何做一个年月日的目录树？

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/20 14:09:00 [显示全部帖子]

根据表内容生成？

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

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

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/20 14:30:00 [显示全部帖子]

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/7/20 14:30:45编辑过]

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/20 14:57:00 [显示全部帖子]

循环添加就行了啊。

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

下一主题 >> << 上一主题

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