请问大神们按周统计和按日统计要怎么修改 - 专家坐堂 - 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

挑选出某年某月，，，生成柱状图，，，，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

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

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

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

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

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

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

Dim nf As Integer = e.form.controls("请选择年份").text

Dim yf As Integer = e.form.controls("请选择月份").text

Dim d As Date = new Date(nf, yf, 1)

g.Filter = "日期 >= #" & d & "# and 日期 < #" & d.addMonths(1) & "#"

g.Build()

If mr.Checked = True Then

Dim yf As WinForm.ComboBox = e.Form.Controls("请选择月份")

yf.Enabled = True

yf.Value = "请选择月份"

Else

If mz.Checked = True Then

Dim yf As WinForm.ComboBox = e.Form.Controls("请选择月份")

yf.Enabled = True

yf.Value = "请选择月份"

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

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

这2个是一样的，，不知道为什么只有月份的显示错误
图片点击可在新窗口打开查看

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

找到了，，，多定义了一个，，麻烦了图片点击可在新窗口打开查看

主题：请问大神们按周统计和按日统计要怎么修改