此主题相关图片如下：111.png
各位老师：1.想在X和Y轴上的值设置成百分比格式，代码怎么写的？
Chart.AxisY.DateType = double'明确指定X轴是日期型,
Chart.AxisY.AnnoFormatString = "0.00%" '指定日期标示格
2.设置标示值格式；在柱子和折线的标签的值也是同样设置成百分比；
3.一共8个柱子，可以调成8种不同的颜色吗？
4.第一根柱子和第一个Y轴，中间有个空隙，可以消除吗？
下面是我的代码，麻烦各位老师了
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
'Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.ChartType2 = ChartTypeEnum.Bar '图表1类型该为Bar(条形)
Chart.ChartType = ChartTypeEnum.XYPlot '图表2类型该为线形
Chart.DataSource = "柏拉图表" '设置绑定表
Chart.AxisY.Min = 0
Chart.AxisY.Max = 1
Chart.AxisY2.Min = 0
Chart.AxisY2.Max = 1
't = Tables("柏拉图表") '定义一个变量t引用数据表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '给图表1增加一个图系
'Series.Text = "数量"
Series.X.DataField = "项目与分类" 'X轴绑定到产品列
Series.Y.DataField = "累积百分比" 'Y轴绑定到数量列
Chart.SeriesList2.Clear() '清除图表原来的图系
Series = Chart.SeriesList2.Add() '给图表2增加一个图系
'''Series.Text = "金额"
''
Series.X.DataField = "cs" 'X轴绑定到产品列
Series.Y.DataField = "占总数比率" 'Y轴绑定到数量列
'
'Series.Length = t.Rows.Count '图系的数据点数等于表的行数
'For i As Integer = 0 To t.Rows.Count - 1 '指定每个数据点的位置
'Series.X(i) = t.Rows(i)("项目与分类") '指定水平坐标
'Series.Y(i) = t.Rows(i)("占总数比率") '指定垂直坐标
'Next
Series.DataLabelText = "{#YVAL}"
Chart.AxisY.DateType = double'明确指定X轴是日期型,
Chart.AxisY.AnnoFormatString = "0.00%" '指定日期标示格
Chart.BarClusterWidth2 = 280
'Chart.SeriesList(0).FitType = FitTypeEnum.Beziers
加好友 
发短信
Post By：2015/12/22 10:36:00 [只看该作者]
