这一段改一下。楼主！
For Each c As Col In Tables("统计").Cols
If c.Name.EndsWith("目标") Then
Series.X(i) = i '指定水平坐标
Series1.X(i) = i '指定水平坐标
Series2.X(i) = i '指定水平坐标
Series.Y(i) = nr(c.Name) '指定垂直坐标
Series1.Y(i) = nr(Tables("统计").Cols(c.Index+1).Name) '指定垂直坐标
Series2.Y(i) = nr(Tables("统计").Cols(c.Index+2).Name) * 100 '指定垂直坐标
Chart.AxisX.SetValueLabel(i, c.Name.Split("_")(1)) '指定字符表示
i+=1
End If
Next
Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.AxisY.Text = "金额"
Chart.AxisY2.Text = "比例"
Series.DataLabelText = "{#YVAL}"
Series1.DataLabelText = "{#YVAL}"
Series2.DataLabelText = "{#YVAL}"
Series1.DataLabelBackColor = Color.Blue '蓝底
Series1.DataLabelForeColor = Color.White '白字
Series.DataLabelBackColor = Color.red '红底
Series.DataLabelForeColor = Color.White '白字
Series2.DataLabelBackColor = Color.green '绿底
Series2.DataLabelForeColor = Color.White '白字
加好友 
发短信
Post By：2014/4/24 19:10:00 [显示全部帖子]
