以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图表跨年问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128535)

--  作者:zhenghangbo
--  发布时间:2018/12/10 9:19:00
--  图表跨年问题
Dim Chart3 As WinForm.Chart \'定义一个图表变量
Dim Series3 As WinForm.ChartSeries \'定义一个图系变量
Dim t5 As Table = Tables("统计表5") \'定义一个变量t引用数据表
Chart3= Forms("主界面").Controls("Chart2") \' 引用窗口中的图表
Chart3.ChartType = ChartTypeEnum.Bar
Chart3.VisualEffect = True
Chart.DataSource = "统计表5"
Chart3.SeriesList.Clear() \'清除图表原来的图系
Series3 = Chart3.SeriesList.Add() \'增加一个图系
Series3.Length = t5.Rows.Count \'图系的数据点数等于表的行数
For i As Integer = 0 To t5.Rows.Count - 1 \'指定每个数据点的位置
    Series3.X(i) = t5.Rows(i)("月") \'指定水平坐标
    Series3.Y(i) = t5.Rows(i)("故障次数") \'指定垂直坐标
Next
Series3.DataLabelText = "{#YVAL}"

现在遇到跨年横坐标会被第二年的覆盖,怎么处理可以重新生成2019年的,或者2018年后面跟着2019年。
[此贴子已经被作者于2018/12/10 9:53:01编辑过]

--  作者:有点甜
--  发布时间:2018/12/10 9:23:00
--  
Dim Chart2 As WinForm.Chart \'定义一个图表变量
Dim Series2 As WinForm.ChartSeries \'定义一个图系变量
Dim t2 As Table = Tables("统计表4") \'定义一个变量t引用数据表
Dim sm2 As Integer = t2.Compute("Sum(故障次数)")
Chart2= Forms("主界面").Controls("Chart3") \' 引用窗口中的图表
Chart2.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart2.ChartType = ChartTypeEnum.Pie \'图表1类型改为Bar(条形)
Chart2.SeriesList.Clear
Chart2.AxisX.ClearValueLabel

For Each r As Row In t2.Rows
    Series2 = Chart2.SeriesList.Add() \'增加一个图系
    Series2.Length = 1 \'一个系列只能包括一个值
    Series2.Text = r("系统") & "(" & r("故障次数") & ")" \'设置图系的标题
    Series2.Y(0) = r("故障次数") \'指定值
    Series2.DataLabelText = Math.Round(r("故障次数")*100/sm2,2) & "%"
Next
Chart2.LegendVisible = True \'显示图列
Chart2.LegendCompass= CompassEnum.East

--  作者:zhenghangbo
--  发布时间:2018/12/10 9:33:00
--  
能解释下加的那两句是什么意思吗?
AxisX.ClearValueLabel特别是这句是什么意思啊

--  作者:zhenghangbo
--  发布时间:2018/12/10 9:42:00
--  
刚才试了你的方法,没有效果啊。我把我电脑日期变了,没有重新生成
--  作者:zhenghangbo
--  发布时间:2018/12/10 9:54:00
--  
不好意思刚才程序考错了,是我生成统计表的时候有问题。
[此贴子已经被作者于2018/12/10 9:56:04编辑过]

--  作者:有点甜
--  发布时间:2018/12/10 10:55:00
--  
以下是引用zhenghangbo在2018/12/10 9:54:00的发言:
不好意思刚才程序考错了,是我生成统计表的时候有问题。
[此贴子已经被作者于2018/12/10 9:56:04编辑过]

 

如果还有问题,做一个实例发上来测试。