本人的目的是要利用单条记录中的数据生成一个统计图，查看教程要运用表，以列来操作，那么如何将一条数据中的内容转变一个临时的数据表呢？

此主题相关图片如下：单条记录生成新表（临时）.png

下图为我想要从一条记录中的数据生成的统计图表效果图，还望各位大师能指明方向！谢谢！

此主题相关图片如下：理想效果图.png

方法一：不需要生成新表的，直接生成图表也可以，上传实例；

方法二：生成一个新表，参考 http://www.foxtable.com/webhelp/scr/2965.htm

谢谢老师的指点，我自己找时间尝试一下建立表试试，弱弱地问一句：如何针对只选定的活动记录的数据产生新表，其它不选定的则不作为新表的数据内容？

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

点击浏览该文件:成绩管理.foxdb

参考代码

Dim kms() As String = {"总分", "语文", "数学", "英语", "科学"}
Dim bpjfs() As String = {"总班平", "语班平", "数班平", "英班平", "科班平"}
Dim jpjfs() As String = {"总级平", "语级平", "数级平", "英级平", "科级平"}
Dim dic As new Dictionary(of String, object)
dic.Add("班平均分", bpjfs)
dic.Add("成绩", kms)
dic.Add("级平均分", jpjfs)

Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim t As Table = Tables("学生信息.成绩记录") \'定义一个变量t引用数据表
Dim chart As WinForm.Chart = Forms("学生成绩详细分析").Controls("Chart1")
Chart.ChartType = ChartTypeEnum.Bar \'图表类型改为Bar(条形)
chart.AxisX.ClearValueLabel
Chart.SeriesList.Clear() \'清除图表原来的图系
For Each tl As String In dic.Keys
    Series = Chart.SeriesList.Add() \'增加一个图系
    Series.Text = tl \'设置图系的标题
    Series.Length = kms.Length \'设置图系的长度
    For r As Integer = 0 To kms.Length-1
        Series.X(r) = r
        Series.Y(r) = t.current(dic(tl)(r))
        Chart.AxisX.SetValueLabel(r, kms(r)) \'指定字符表示
    Next
Next

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