【求助】怎么按日期生成按年月份数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

【求助】怎么按日期生成按年月份数据

有订单明细表内有订单编号总额发货价利润订单日期订单门店字段

有投入产出表内有门店名称投入产出利润日期年月字段

怎么将订单主表中的数据按照年月进行汇总到投入产出表呢？

总额 = 产出

发货价 = 投入

利润 = 利润

订单门店=门店名称

此主题相关图片如下：11.png

此主题相关图片如下：22.png

[此贴子已经被作者于2017/12/8 11:56:18编辑过]

有点甜老师下述代码可以实现除了年月生成请问怎么生成对于年月呢？

不是把订单日期生成年月哦是统计比如2017年11月份全部的数据只生成一行那么年就是2017 月份就是11

Dim dtb As New DataTableBuilder("统计")

dtb.AddDef("订单门店", Gettype(String), 32)

dtb.AddDef("投入", Gettype(Integer))

dtb.AddDef("产出", Gettype(Double))

dtb.AddDef("利润", Gettype(Double))

dtb.AddDef("年", Gettype(String), 6)

dtb.AddDef("月", Gettype(String), 6)

dtb.Build()

For Each nm As String In DataTables("订单明细").GetValues("订单门店")

Dim dr As DataRow = DataTables("统计").AddNew()

dr("订单门店") = nm

dr("投入") = DataTables("订单明细").Compute("Sum(发货价)","[订单门店] = '" & dr("订单门店") & "'")

dr("产出") = DataTables("订单明细").Compute("Sum(总额)","[订单门店] = '" & dr("订单门店") & "'")

dr("利润") = DataTables("订单明细").Compute("Sum(利润)","[订单门店] = '" & dr("订单门店") & "'")

MainTable= Tables("统计")

此主题相关图片如下：33.png

不行哦是根据订单日期生成

想统计的就是某年某月的总数据

比如2017年11月各个门店的数据

有点甜老师已经按照下面代码实现如图效果

Dim dtb As New GroupTableBuilder("统计",DataTables("订单明细"),"订单门店='艾依格店'")

dtb.Groups.AddDef("订单日期", DateGroupEnum.Year, "年") '添加日期列用于分组,并用"年"代替原名称

dtb.Groups.AddDef("订单日期","月")

dtb.Groups.AddDef("订单门店")

dtb.Totals.AddDef("发货价","投入")

dtb.Totals.AddDef("总额","产出")

dtb.Totals.AddDef("利润")

dtb.Subtotal=True

dtb.SamePeriodGrowth=True

dtb.VerticalTotal=True

dtb.GrandProportion=True

dtb.GroupProportion=True

dtb.CircleGrowth=True

dtb.Build()

Dim 变量名 As WinForm.Table = e.Form.Controls("Table1")

变量名.Table.DataSource = dtb.BuildDataSource()

变量名.Table.AutoSizeCols()

此主题相关图片如下：111.png

现在怎么生成如下图图标呢？

此主题相关图片如下：112.png

下面的原来的代码

Dim g As new GroupTableBuilder("统计表1",DataTables("投入产出"))

g.Groups.AddDef("月份")

g.Totals.AddDef("投入")

g.Totals.AddDef("产出")

g.Totals.AddDef("利润")

g.filter = "门店名称 = '艾依格店'"

Dim dt As DataTable = g.Build(True)

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Chart = e.Form.Controls("Chart3") ' 引用窗口中的图表

Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)

Chart.SeriesList.Clear() '清除图表原来的图系

Dim cls() As String = {"投入","产出","利润"}

For Each c As String In cls

Series = Chart.SeriesList.Add() '增加一个图系

Series.Text = c '设置图系的标题

Series.Length = 13 '设置图系的长度

For r As Integer = 0 To 12

Series.X(r) = r

Series.Y(r) = 0

For i As Integer = 0 To dt.dataRows.Count - 1

Series.Y(dt.dataRows(i)("月份")) = dt.dataRows(i)(c)

Series.DataLabelText = c & "{#YVAL}"

Series.DataLabelConnected=True

Series.TooltipText = "艾依格店" & c & "{#XVAL}月, {#YVAL}元"

Chart.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart.LegendVisible = True '显示图列

Chart.LegendCompass= CompassEnum.South

麻烦修正一下谢谢！

主题：【求助】怎么按日期生成按年月份数据