请问大神们按周统计和按日统计要怎么修改 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'--------------------------生成统计表------------------------------

Dim g As New GroupTableBuilder("统计表2", DataTables("线下待发货订单数据表"))

g.Groups.AddDef("日期", DateGroupEnum.Day, "日")

g.Totals.AddDef("订单金额")

g.Filter = "[日期] >= #/1/" & e.sender.value & "# And [日期] <= #/31/" & e.sender.value & "#"

g.Build()

'----------------------------生成图表------------------------

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

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

Dim t As Table = Tables("统计表2") '定义一个变量t引用数据表

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

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

Chart.AxisX.Major = 1

Chart.AxisY.Major = 1000

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

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

Series.Length = t.Rows.Count '图系的数据点数等于表的行数

For i As Integer = 0 To t.Rows.Count - 1 '指定每个数据点的位置

Series.X(i) = t.Rows(i)("月") '指定水平坐标

Series.Y(i) = t.Rows(i)("订单金额") '指定垂直坐标

Series.DataLabelText = "{#YVAL}"

'-----------------------个性化图表------------------------

Chart.HeaderText = e.sender.value & "年月度订单金额统计"

Chart.AxisX.Text = "月份"

Chart.AxisY.Text = "订单金额"

是不是这里需要修改一下;g.Filter = "[日期] >= #/1/" & e.sender.value & "# And [日期] <= #/31/" & e.sender.value & "#"

要怎么改？？？

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

参考

g.Groups.AddDef("日期", DateGroupEnum.Week, "周")

DateGroupEnum枚举的可选值：

None ：     不分组
Year：      按年分组
Quarter：   按季度分组
Month：     按月分组
Week：      按周分组
Day：       按天分组，月中的某一天。
Hour：      按小时分组
Minute：    按分钟分组
Second：    按秒分组

挑选出某年某月，，，生成柱状图，，，，X轴是日或者周，，，， Y轴是金额

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

Dim g As New GroupTableBuilder("统计表3", DataTables("线下待发货订单数据表"))

g.Groups.AddDef("日期", DateGroupEnum.Year, "年")

g.Groups.AddDef("日期", "月")

g.Groups.AddDef("日期", DateGroupEnum.Day, "日")

g.Totals.AddDef("订单金额")

g.Build()

MainTable = Tables("统计表3")

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

Dim g As New GroupTableBuilder("统计表3", DataTables("线下待发货订单数据表"))
g.Groups.AddDef("日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("日期", "月")
g.Groups.AddDef("日期", DateGroupEnum.Day, "日")
g.Totals.AddDef("订单金额")
Dim y As Integer = e.form.controls("combobox1").text
Dim m As Integer = e.form.controls("combobox2").text
Dim d As Date = new Date(y, m, 1)
g.Filter = "日期 >= #" & d & "# and 日期 < #" & d.addMonths(1) & "#"
g.Build()
MainTable = Tables("统计表3")