主题：图表的实现

 老师我是这样写的

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("表A") '定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart.SeriesList.Clear() '清除图表原来的图系

Chart.BarClusterWidth = 320

    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Text = "基本情况完成"
    Series.Length = 1 '设置图系的长度
        Series.X(0) =1
        Series.Y(0) = Tables("表A").Current("基本情况完成")

    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Text = "基本情况未完成"
    Series.Length = 1 '设置图系的长度
        Series.X(0) =1.5
        Series.Y(0) = Tables("表A").Current("基本情况未完成")

    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Text = "业绩完成"
    Series.Length = 1 '设置图系的长度
        Series.X(0) =2.5
        Series.Y(0) = Tables("表A").Current("业绩完成")

    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Text = "业绩未完成"
    Series.Length = 1 '设置图系的长度
        Series.X(0) =3
        Series.Y(0) = Tables("表A").Current("业绩未完成")

 

Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

间隔为啥没有规律了呢？不知道设置哪里能有规律间隔，一楼图表宽度和间隔最理想，就想达到一楼的效果

 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=103958&skin=0

不会用,请老师帮助改一下,Y轴怎么用百度比显示

 让我研究难太大了，能不能让狐狸爸爸帮助解决一下？

 非常感谢逛逛,大神!!!

 老师21楼的代码

Chart.BarClusterWidth = 320

这个属性往大改，不管用，是啥原因呢？