Foxtable(狐表)用户栏目专家坐堂 → 目录树时间


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

主题:目录树时间

帅哥哟,离线,有人找我吗?
有点甜
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/14 15:48:00 [只看该作者]

【示例窗口】

 

Dim Filter As String = ""
If e.node.Name <> "显示所有行" Then
    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("流水表").Filter = Filter


 回到顶部
美女呀,离线,留言给我吧!
宝疙瘩1990
  22楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:36 积分:280 威望:0 精华:0 注册:2018/7/30 8:31:00
  发帖心情 Post By:2018/8/14 16:33:00 [只看该作者]

问题一:怎么更改“订单数”,想把“订单数”改成选定列里面的金额,比如产品(200元)
问题二:做产品的下级,比如:产品—A产品


图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20180814163046.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/14 16:39:00 [只看该作者]

参考代码

 

'首先生成统计表
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.sum,"数量") '根据客户列来统计记录数,也就是订单数
dt = b.Build(True) '参数设置为True,生成一个临时表,不在主界面显示
'然后根据统计表生成目录树
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


 回到顶部
美女呀,离线,留言给我吧!
宝疙瘩1990
  24楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:36 积分:280 威望:0 精华:0 注册:2018/7/30 8:31:00
  发帖心情 Post By:2018/8/14 17:01:00 [只看该作者]

大神,里面的1005条,不要订单数,改成金额
然后在这个代码里,怎么增加下一级的产
图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20180814165522.png
图片点击可在新窗口打开查看
品,例:1月—产品—A产品

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/14 18:23:00 [只看该作者]

看懂23楼代码,在你 【示例窗口1】测试。

 

不然上传具体实例测试。


 回到顶部
美女呀,离线,留言给我吧!
宝疙瘩1990
  26楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:36 积分:280 威望:0 精华:0 注册:2018/7/30 8:31:00
  发帖心情 Post By:2018/8/15 10:52:00 [只看该作者]

目录树想新增一列,增加不进去,(类别)

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20180815104822.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/8/15 10:52:00编辑过]

 回到顶部
美女呀,离线,留言给我吧!
宝疙瘩1990
  27楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:36 积分:280 威望:0 精华:0 注册:2018/7/30 8:31:00
  发帖心情 Post By:2018/8/15 10:58:00 [只看该作者]

想添加列——成本合计下的金额数,改不过来,显示的还是数量

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20180815105437.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20180815105620.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/15 11:01:00 [只看该作者]

修改红色代码

 

b.Totals.AddDef("数量",AggregateEnum.sum,"数量") '根据客户列来统计记录数,也就是订单数


 回到顶部
美女呀,离线,留言给我吧!
宝疙瘩1990
  29楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:36 积分:280 威望:0 精华:0 注册:2018/7/30 8:31:00
  发帖心情 Post By:2018/8/15 16:48:00 [只看该作者]

改过来了,谢谢大神!
麻烦大神再帮我看看26楼的问题

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/15 17:18: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("产品")
    Dim leibie 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 & "'"
        Case 3
            d1 = New Date(Year, Month, 1) '取得该月的第一天
            d2 = new Date(Year, Month, Date.DaysInMonth(Year,Month)) '取得该月的最后一天
            Filter = "日期 >= #" & d1 & "# And 日期 <= #" & d2 & "# And 产品 = '" & Product & "' and 类别 = '" & leibie & "'"
    End Select
End If
Tables("订单").Filter = Filter

 


 回到顶部
总数 33 上一页 1 2 3 4 下一页