- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 生成图表后，X轴的字重影 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88576)
-- 发布时间：2016/8/5 10:24:00
-- [求助] 生成图表后，X轴的字重影
代码和出现的情况如下。。。。。二次以上运行筛选年份的统计，图表就会出现重影
此主题相关图片如下：6.png
Dim yy As WinForm.ComboBox = e.Form.Controls("Com年")
Dim g As New CrossTableBuilder("月统计", DataTables("订单明细"))
g.HGroups.AddDef("年")
g.VGroups.AddDef("产品型号")
g.Totals.AddDef("总价", "金额")
If yy.Text = Nothing Then
g.Filter = ""
Else
g.Filter = "[年] = \'" & yy.Text & "\'" \'2015年\'"
End If
g.Build()
Tables("统计1_ta统计表").DataSource = DataTables("月统计")
Tables("统计1_ta统计表").AutoSizeCols
Dim Chart As WinForm.Chart = e.Form.Controls("Ch产品统计")
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim t As Table = Tables("月统计") \'定义一个变量t引用数据表
\'Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar \'图表类型改为Bar(条形)
Chart.SeriesList.Clear() \'清除图表原来的图系
For Each c As Col In t.Cols
If c.Name <> "年" Then
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Text = c.Caption \'设置图系的标题
Series.Length = t.Rows.Count \'设置图系的长度
For r As Integer = 0 To t.Rows.Count - 1
Series.X(r) = r
Series.Y(r) = t.Rows(r)(c.Name)
Chart.AxisX.SetValueLabel(r, t.Rows(r)("年")) \'指定字符表示
Next
Series.DataLabelText = "{#YVAL}"
End If
Next
Chart.AxisX.AnnoWithLabels = True \'启用字符标示
Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart.LegendVisible = True \'显示图列
Chart.LegendCompass= CompassEnum.South \'图列显示在南方(底端)
Chart.BarClusterWidth = 100
Dim fnt As New Font("黑体",22,FontStyle.bold)
Chart.HeaderText = Date.Today.Year & "业绩分析报告"
Chart.HeaderFont = fnt
Dim ta As WinForm.TabControl = e.Form.Controls("TabControl1")
ta.SelectedIndex = 1
-- 发布时间：2016/8/5 10:30:00
--
绘制之前，清空之前的文字
chart.AxisX.ClearValueLabel
-- 发布时间：2016/8/5 11:15:00
--
X轴的文字如何可以让它竖排
-- 发布时间：2016/8/5 11:28:00
--
X轴的文字如何可以让它竖排
试试旋转
http://www.foxtable.com/webhelp/scr/1030.htm