Foxtable(狐表)用户栏目专家坐堂 → 多目录树代码


  共有3597人关注过本帖树形打印复制链接

主题:多目录树代码

帅哥哟,离线,有人找我吗?
lxhmax
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:637 积分:5704 威望:0 精华:0 注册:2012/8/2 19:04:00
多目录树代码  发帖心情 Post By:2014/4/17 13:56:00 [只看该作者]

请问下各位,我一个窗口有4个目录树,我想每个目录树都设置成“筛选树显示统计数据”这样的样式,下面这段代码我要怎么改变才好操作点~

麻烦各位老师帮忙看看,谢谢啦!


'首先生成统计表
Dim
dt As DataTable
Dim
b As New GroupTableBuilder("统计表1",DataTables("订单"))
b
.Groups.AddDef("日期",DateGroupEnum.Year,"年")
b
.Groups.AddDef("日期",DateGroupEnum.Month,"")
b
.Groups.AddDef("产品")
b
.Totals.AddDef("客户",AggregateEnum.Count,"订单数") '根据客户列来统计记录数,也就是订单数
dt
= b.Build(False) '参数设置为False,生成一个临时表,不在主界面显示
'然后根据统计表生成目录树

Dim
trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv
.BuildTree(dt, "||产品")
trv
.StopRedraw
For
Each nd As WinForm.TreeNode In trv.AllNodes
   
Dim Year As Integer = nd.DataRow("")
   
Dim Month As Integer = nd.DataRow("")
   
Dim Product As String = nd.DataRow("产品")
   
Select Case nd.Level
       
Case 0
           
nd.Text = nd.text & "(" & dt.Compute("Sum(订单数)"," = " & Year) & ")"
       
Case 1
           
nd.Text = nd.text & "(" & dt.Compute("Sum(订单数)"," = " & Year & " And = " & Month) & ")"
       
Case 2
           
nd.Text = nd.text & "(" & nd.DataRow("订单数") & ")"
   
End Select
Next

trv
.Nodes.Insert("显示所有行","显示所有行(" & dt.Compute("Sum(订单数)") & "条)",0)
trv
.ResumeRedraw


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/17 14:05:00 [只看该作者]

每个树统计的东西不一样,无法取巧.老实一个个树分开写.

 回到顶部
帅哥哟,离线,有人找我吗?
lxhmax
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:637 积分:5704 威望:0 精华:0 注册:2012/8/2 19:04:00
  发帖心情 Post By:2014/4/17 14:20:00 [只看该作者]

请问下最后一个节点改成日怎么改,我怎么改都提示错误

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/17 14:24:00 [只看该作者]

b.Groups.AddDef("日期",DateGroupEnum.Year,"年")
b
.Groups.AddDef("日期",DateGroupEnum.Month,"")
b.Groups.AddDef("日期",DateGroupEnum.Day,"日")



 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/17 14:24:00 [只看该作者]

For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim Year As Integer = nd.DataRow("年")
    Dim Month As Integer = nd.DataRow("月")
    Dim Day As String = nd.DataRow("日")
    Select Case nd.Level
        Case 0
            nd.Text = nd.text & "年(" & dt.Compute("Sum(订单数)","年 = " & Year) & "条)"
        Case 1
            nd.Text = nd.text & "月(" & dt.Compute("Sum(订单数)","年 = " & Year & " And 月 = " & Month) & "条)"
        Case 2
            nd.Text = nd.text & "月(" & dt.Compute("Sum(订单数)","年 = " & Year & " And 月 = " & Month & "and 日=" Day) & "条)"
    End Select
Next

 回到顶部
帅哥哟,离线,有人找我吗?
lxhmax
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:637 积分:5704 威望:0 精华:0 注册:2012/8/2 19:04:00
  发帖心情 Post By:2014/4/17 15:06:00 [只看该作者]

谢谢老师,请问老师这段代码最后一个节点怎么变成”日“~

Dim Filter As String = ""
If e.node.Name <> "显示所有行" Then '要用Name属性,不能用Text属性
    Dim d1 As Date
    Dim d2 As Date
    Dim Year As Integer = e.Node.DataRow("年")
    Dim Month As Integer = e.Node.DataRow("月")
    Dim Product As String = e.Node.DataRow("委托单位")
    Select Case e.Node.Level
        Case 0
            d1 = New Date(Year,1,1) '取得该年的第一天
            d2 = new Date(Year,12,31) '取得该年的最后一天
            Filter = "委托日期 >= #" & d1 & "# And 委托日期 <= #" & d2 & "#"
        Case 1
            d1 = New Date(Year, Month, 1) '取得该月的第一天
            d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) '取得该月的最后一天
            Filter = "委托日期 >= #" & d1 & "# And 委托日期 <= #" & d2 & "#"
        Case 2
            d1 = New Date(Year, Month, 1) '取得该月的第一天
            d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) '取得该月的最后一天
            Filter = "委托日期 >= #" & d1 & "# And 委托日期 <= #" & d2 & "# And 委托单位 = '" & Product & "'"
    End Select
End If
Tables("导航栏_Table1").Filter = Filter



 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/17 15:11:00 [只看该作者]

你上例子吧,代码上面我已经给过示例了.

 回到顶部