以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图表按年月显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121216)
--  作者：yifan3429
--  发布时间：2018/7/1 23:00:00
--  图表按年月显示
Dim g As New GroupTableBuilder("统计表1", DataTables("订单表"))
g.Groups.AddDef("签约日期", DateGroupEnum.Year, "年")
g.Groups.AddDef("签约日期", "月")
g.Totals.AddDef("成交金额")
g.VerticalTotal = True
g.SubTotal = True
g.FromServer = True
g.Build()
MainTable = Tables("统计表1")

图表按年月显示 如2017-1月

Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim t As Table = Tables("统计表1") \'定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar \'图表类型该为Bar(条形)
Chart.DataSource = "统计表1" \'设置绑定表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.X.DataField = "月" \'X轴绑定到产品列
Series.Y.DataField = "成交金额" \'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL}"
[此贴子已经被作者于2018/7/1 23:14:54编辑过]
--  作者：yifan3429
--  发布时间：2018/7/1 23:15:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：企业微信截图_20180701231402.png
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2018/7/1 23:33:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/0970.htm

 

 
--  作者：有点甜
--  发布时间：2018/7/1 23:34:00
--  

先生成教程统计表

 

http://www.foxtable.com/webhelp/scr/0165.htm