主题：转置后的临时表怎么用

非常棒，蓝老师。

除了“xx分以下”和“xx分以上”，其他的字段写成xx分至xx分，不知道怎么合成，请求帮忙

Dim g As New CrossTableBuilder("成绩转置1", DataTables("成绩登记表"))
g.HGroups.AddDef("考试期数")
g.HGroups.AddDef("年级")
g.HGroups.AddDef("班级")
g.HGroups.AddDef("学号")
g.HGroups.AddDef("姓名")
g.VGroups.AddDef("课程名称")
g.Totals.AddDef("分数", "分数")
g.HorizontalTotal = True
g.Build()
MainTable = Tables("成绩转置1")
Tables("成绩转置1").grid.Cols("合计").caption = "总分"
Dim dic As new Dictionary(of String, String)
For Each c As Col In Tables("成绩转置1").cols
    dic.add(c.caption, c.name)
Next
'---------------------------------
Dim fsd As New List(of Integer)

t1.DataTable.SysStyles("EmptyArea").BackColor = Color.White
t1.ResumeRedraw
MainTable = t1
Tables("统计_Table2").DataSource = DataTables("统计")

这段代码怎么修改，可以用的快项目当中，即把排名和分数表示在图中

方便看出学生成绩分数和排名的变化曲线。还有几张表，也可以做成图标，不知如何下手。

帮助文件看了，照葫芦画瓢还是做不出。

 
此主题相关图片如下：qq图片20181107203718.png

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
For Each Year As String In DataTables("统计表1").GetValues("年")
    Series = Chart.SeriesList.Add() '每年一个图系
    Series.Text = Year  '指定图系名称为年份
    Series.Length = 12  '指定图系的数据点数,1年12个月
    Chart.AxisX.Min = 1  '指定X轴的最小值,也就是从1月开始
    Chart.AxisX.Max = 12 ''指定X轴的最大值,一年只有12个月
    For Month As Integer = 1 To 12 '逐月设置坐标
        Series.X(Month-1) = Month      '指定水平坐标为月份
        Dim r As DataRow = DataTables("统计表1").Find("年 = " & Year & " And  月 = " & Month)'找出对应年月的行
        If r IsNot Nothing '如果找到对应年月的行
            Series.Y(Month-1) = r("数量") '指定数量作为垂直坐标
        End If
    Next
Next

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

点击浏览该文件:成绩管理试做.table

参考

Dim chart As WinForm.Chart = Forms("统计").Controls("Chart1")
Dim tb As WinForm.Table = Forms("统计").Controls("Table2")
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart.VisualEffect = False '加上这一行,让你的图表更漂亮
Chart.AxisX.ClearValueLabel
Chart.ChartType = ChartTypeEnum.Bar '图表类型该为Bar(条形)
Chart.DataSource = tb.Table.name '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加第一个图系
Series.Text = "化学_分数"
Series.X.DataField = "姓名" 'X轴绑定到产品列
Series.Y.DataField = "分数_1" 'Y轴绑定到数量列

Chart.ChartType2 = ChartTypeEnum.XYPlot '图表2类型该为线形
Chart.SeriesList2.Clear() '清除图表原来的图系
Series = Chart.SeriesList2.Add() '给图表2增加一个图系
Series.Text = "化学_排名"
Series.X.DataField = "姓名" 'X轴绑定到产品列
Series.Y.DataField = "排名_1" 'Y轴绑定到数量列
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

请，自己，先把chart图表全部学完。

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

甜老师，目前chart图表还没有好好学，只是照模学样。

你的代码不能用，没反应

把chart里面的实例，全部做一次

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

图标按照下面的代码可以显示，我想只要查询个人成绩情况的图表结果？

Dim tb As WinForm.Chart = e.Form.Controls("Chart1")
Dim ts As WinForm.ChartSeries
'Dim TextBox1 As WinForm.TextBox = Forms("统计").Controls("TextBox1")
'Tables("统计_Table2").Filter = "( 姓名='" & TextBox1.Text & "')"
tb.DataSource = "成绩排名表"
tb.SeriesList.Clear() '清除图表原来的图系
ts = tb.serieslist.add()
'tb.VisualEffect = True

ts.x.DataField = ("考试期数")
ts.y.DataField = ("合计_分数")

1、查找find或者select到对应数据；

2、然后给图表赋值 （方法二）

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

这样写，问题出在哪里

Dim tb As WinForm.Chart = e.Form.Controls("Chart1")
Dim ts As WinForm.ChartSeries
Dim TextBox1 As WinForm.TextBox = Forms("统计").Controls("TextBox1")

tb.DataSource =Tables("统计_Table2").Filter= "( 姓名='" & TextBox1.Text & "')"

 tb.SeriesList.Clear() '清除图表原来的图系
ts = tb.serieslist.add()
'tb.VisualEffect = True

ts.x.DataField = ("考试期数")
ts.y.DataField = ("合计_分数")