- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请问大神们按周统计和按日统计要怎么修改 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109465)
-- 发布时间：2017/11/13 9:26:00
-- 请问大神们按周统计和按日统计要怎么修改
\'--------------------------生成统计表------------------------------
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}"
Next
\'-----------------------个性化图表------------------------
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
此主题相关图片如下：qq图片20171113092210.png-- 发布时间：2017/11/13 9:33:00
--
参考
g.Groups.AddDef("日期", DateGroupEnum.Week, "周")
DateGroupEnum枚举的可选值：
None ： 不分组
Year： 按年分组
Quarter： 按季度分组
Month： 按月分组
Week： 按周分组
Day： 按天分组，月中的某一天。
Hour： 按小时分组
Minute： 按分钟分组
Second： 按秒分组
-- 发布时间：2017/11/13 9:45:00
-- 生成柱状图怎么生成？？？
挑选出某年某月，，，生成柱状图，，，，X轴是日或 者周，，，， Y轴是金额
-- 发布时间：2017/11/13 9:47:00
--
参考
http://www.foxtable.com/webhelp/scr/0968.htm
-- 发布时间：2017/11/13 10:06:00
-- 怎么只出筛选某年某月的值，，，用上面的组合框控制
此主题相关图片如下：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
-- 发布时间：2017/11/13 10:13:00
--
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")
-- 发布时间：2017/11/13 11:03:00
-- 这些事哪里错了吗？？？
此主题相关图片如下：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
-- 发布时间：2017/11/13 11:22:00
--
看其名称是什么
此主题相关图片如下：qq截图20171113112207.png
-- 发布时间：2017/11/13 11:32:00
-- 这2个是一样的，，不知道为什么只有月份的显示错误
此主题相关图片如下：qq图片20171113113020.png
这2个是一样的，，不知道为什么只有月份的显示错误
此主题相关图片如下：qq图片20171113112949.png
-- 发布时间：2017/11/13 11:34:00
--
你看看你是不是多写了空格之类的在后面？