- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 图表的Y轴可以用百分比显示吗？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=148925)
-- 发布时间：2020/4/18 20:32:00
-- 图表的Y轴可以用百分比显示吗？
此主题相关图片如下：2.png
Dim g2 As New GroupTableBuilder("斩价", DataTables("报价明细"))
g2.Groups.AddDef("客户")
g2.Totals.AddDef("斩价", AggregateEnum.Average)
g2.FromServer = True
g2.Build()
MainTable = Tables("斩价")
Dim Chart2 As WinForm.Chart \'定义一个图表变量
Dim Series2 As WinForm.ChartSeries \'定义一个图系变量
Dim t2 As Table = Tables("斩价") \'定义一个变量t引用数据表
Chart2= e.Form.Controls("Chart2") \' 引用窗口中的图表
Chart2.ChartType = ChartTypeEnum.Bar \'设置图表类型
Chart2.SeriesList.Clear() \'清除图表原来的图系
Series2 = Chart2.SeriesList.Add() \'增加一个图系
Series2.Length = t2.Rows.Count \'设置图系的长度
For i2 As Integer = 0 To t2.Rows.Count - 1 \'指定每个数据点的位置
Series2.X(i2) = i2 \'指定水平坐标
Series2.Y(i2) = t2.Rows(i2)("斩价") \'指定垂直坐标
Chart2.AxisX.SetValueLabel(i2, t2.Rows(i2)("客户")) \'指定字符表示
Next
Chart2.AxisX.AnnoWithLabels = True \'启用字符标示
-- 发布时间：2020/4/19 21:24:00
--
Chart2.AxisY.AnnoFormatString = "00%"
-- 发布时间：2020/4/20 11:08:00
--
谢谢蓝老师！