主题：如何将一条记录中的数据生成一个新的临时表中

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

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

参考代码

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 '图列显示在南方(底端)