以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  生成流水账图表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=146270)

--  作者:冷泉
--  发布时间:2020/2/20 14:37:00
--  生成流水账图表

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20200220142603.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20200220142626.jpg
图片点击可在新窗口打开查看

老师,如果按月份筛选不同月份的流水账图表,流水账表里面有多个同一天的收入数据,能否在生成图表代码里面自动合计出来,代码应该怎样设置,还是需要把这个流水账表生成一个单独收入明细按日期排序的临时表,再来生成图表吗?

生成图表代码:
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim t As Table = Tables("流水账") \'定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar \'图表类型该为Bar(条形)
Chart.AxisX.DateType = True \'明确指定X轴是日期型
Chart.AxisX.AnnoFormatString = "MM-dd" \'制定日期表示格式
Chart.DataSource = "流水账" \'设置绑定表

Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.X.DataField = "日期" \'X轴绑定到产品列
Series.Y.DataField = "收入" \'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL}"


--  作者:有点蓝
--  发布时间:2020/2/20 14:55:00
--  
先生成分组统计,再根据统计生成图表http://www.foxtable.com/webhelp/topics/0677.htm