主题：先统计再生成图表

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

Dim xs() As Integer = {85,75,60,0}

For Each c As Col In t.Cols
    If c.Name <> "总评成绩" AndAlso c.name <> "学号" Then
        Series = Chart.SeriesList.Add() '增加一个图系
        Series.Text = c.Name '设置图系的标题
        Series.Length = xs.Length '设置图系的长度
        For r As Integer = 0 To xs.length - 1
            Series.X(r) = r
            Series.Y(r) = t.Compute("count(学号)", c.name & " = '√' and 总评成绩 >= " & xs(r))
        Next
    End If
Next
For r As Integer = 0 To xs.length - 1
    Chart.AxisX.SetValueLabel(r, xs(r) & "分") '指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

 你理解代码后，就能对任意一个表统计生成图表