请教老师，如果形成临时统计表后，只提取占比部分生成图表，怎样操作，用GDR吗？给个代码例子参考，谢谢

如果不绑定表，只用最后一行的合计行的占比，怎样能生成图表？

蓝老师，我根据您指导的代码修改了一下，有点问题，只会显示第一和第二个图系，如果加上第三个图系的代码，就只显示第二个图系的一个BAR，

Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim t As Table = Tables("投标评价_Table2") \'定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Bar   \'图表类型该为Bar(条形)
\'Chart.DataSource = "统计表1" \'设置绑定表
Chart.AxisY.Text = "报价频率(次)"
Chart.SeriesList.Clear() \'清除图表原来的图系

Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length =  t.Rows.Count  \'图系的数据点数等于表的行数
Series.Text = "最低价"
For i As Integer = t.Count - 1 To t.Count - 1 \'指定每个数据点的位置
    Series.X(i) = i \'指定水平坐标
    Series.Y(i) = t.Rows(i)("投标执行_投标报价_最低") \'指定垂直坐标
    Chart.AxisX.SetValueLabel(i, t.Rows(i)("项目属地"))
Series.DataLabelText = "{#YVAL}"
Next

Series = Chart.SeriesList.Add() \'增加第二个图系
Series.Text = "次低"
Series.Length =  t.Rows.Count  \'图系的数据点数等于表的行数
For i As Integer = t.Count - 1 To t.Count - 1 \'指定每个数据点的位置
    Series.X(i) = i \'指定水平坐标
    Series.Y(i) = t.Rows(i)("投标执行_投标报价_次低") \'指定垂直坐标
    Chart.AxisX.SetValueLabel(i, t.Rows(i)("项目属地"))
Series.DataLabelText = "{#YVAL}"
Next

Series = Chart.SeriesList.Add() \'增加第三个图系
Series.Text = "中间"
Series.Length =  t.Rows.Count  \'图系的数据点数等于表的行数
For i As Integer = t.Count - 1 To t.Count - 1 \'指定每个数据点的位置
    Series.X(i) = i \'指定水平坐标
    Series.Y(i) = t.Rows(i)("投标执行_投标报价_中间") \'指定垂直坐标
    Chart.AxisX.SetValueLabel(i, t.Rows(i)("项目属地"))
Series.DataLabelText = "{#YVAL}"
Next

此主题相关图片如下：未标题-1.jpg

 请老师看看例子

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试.zip