主题：模仿没模仿成功，请老师帮忙指导一下

1、图表至少两行才能正常生成的。

2、代码

Dim Chart As WinForm.Chart = e.Form.Controls("Chart1")
Dim Series As WinForm.ChartSeries
Chart.VisualEffect = True
Chart.ChartType = ChartTypeEnum.Bar
Chart.SeriesList.Clear()
Series = Chart.SeriesList.Add()
Series.Length = Tables("完成比例").rows.count+1
Series.Text = "完成评估数量"
Dim i As Integer=0
Series.X(i) = i
Series.Y(i) = i
i += 1
For Each r As Row In Tables("完成比例")
   
    Series.X(i) = i
    Series.Y(i) = r("完成评估数量")
    'Chart.AxisX.SetValueLabel(i, "完成")
    i += 1
Next
i=0
Series = Chart.SeriesList.Add()
Series.Length = Tables("完成比例").rows.count+1
Series.Text = "未完成评估数量"
Series.X(i) = i
Series.Y(i) = i
i+=1
For Each r As Row In Tables("完成比例")
    Series.X(i) = i
    Series.Y(i) = r("未完成评估数量")
    Chart.AxisX.SetValueLabel(i,r("上级"))
    i=i+1
Next

Chart.AxisX.AnnoWithLabels = True
Chart.LegendVisible = True
Chart.LegendCompass= CompassEnum.South

Dim Chart As WinForm.Chart = e.Form.Controls("Chart1")
Dim Series As WinForm.ChartSeries
Chart.VisualEffect = True
Chart.ChartType = ChartTypeEnum.Bar
Chart.SeriesList.Clear()
Series = Chart.SeriesList.Add()
Series.Length = Tables("完成比例").rows.count+1
Series.Text = "完成评估数量"
Dim i As Integer=0

For Each r As Row In Tables("完成比例")
   
    Series.X(i) = i
    Series.Y(i) = r("完成评估数量")
    'Chart.AxisX.SetValueLabel(i, "完成")
    i += 1
Next
series.DataLabelText = "{#YVAL}"
i=0
Series = Chart.SeriesList.Add()
Series.Length = Tables("完成比例").rows.count+1
Series.Text = "未完成评估数量"

For Each r As Row In Tables("完成比例")
    Series.X(i) = i
    Series.Y(i) = r("未完成评估数量")
    Chart.AxisX.SetValueLabel(i,r("上级"))
    i=i+1
Next
series.DataLabelText = "{#YVAL}"

Chart.AxisX.AnnoWithLabels = True
Chart.LegendVisible = True
Chart.LegendCompass= CompassEnum.South

不可以，没办法。

看看

http://www.foxtable.com/webhelp/scr/1018.htm

http://www.foxtable.com/webhelp/scr/1020.htm

http://www.foxtable.com/webhelp/scr/1021.htm

多于1行表数据，才能正常显示的。你增加多几行数据。

Series.Length = Tables("完成比例").rows.count+1

改成

Series.Length = Tables("完成比例").rows.count