主题：[求助]Histogram图表空值出错

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Chart= Forms("图表").Controls("Chart1") ' 引用窗口中的图表

Chart.ChartType = ChartTypeEnum.Histogram ' 设置图表类型

Chart.DataSource = "表A" '设置绑定表

Chart.SeriesList.Clear() '清除图表原来的图系

Series = Chart.SeriesList.Add() '增加一个图系

Series.Histogram.IntervalStart = 0 '指定起始值

Series.Histogram.IntervalWidth = 10 '指定分区宽度

Series.Histogram.IntervalNumber= 10 '指定分区个数

Series.Y.DataField = "数据" 'Y轴绑定到数量列

Dim Chart  As WinForm.Chart  '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表

Chart.SeriesList.Clear() '清除图表原来的图系

Chart.ChartType = ChartTypeEnum.Bar ' 设置图表类型

Series = Chart.SeriesList.Add() '增加一个图系

Series.Length = 110 '设置图系的长度

For i As Integer =  0  To 100 Step 10  '指定每个数据点的位置

    Series.X(i) = i '指定水平坐标

    Series.Y(i) = DataTables("表A").Compute("count(_identify)", "数据 >= " & i-10 & " And 数据 < " & i)

   Chart.AxisX.SetValueLabel(i, i) '指定字符表示

Next

Chart.AxisX.AnnoWithLabels = True '启用字符标示