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

参考

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里面的实例，全部做一次

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

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

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

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

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

没看懂你的意思，一个chart同一个时间只能显示一个图表。

如果你要擦除原来的图标，写代码如

Chart.SeriesList.Clear() '清除图表原来的图系
Chart.AxisX.ClearValueLabel

具体问题上传上来，说明要做到什么效果。

这个意思？

Dim Chart As WinForm.Chart = e.Form.Controls("Chart1")
Dim Series As WinForm.ChartSeries
Dim tt As Table = Tables("统计表1")
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.DataSource = "统计表1"

Series = Chart.SeriesList.add()
Series.Text = "str6"
Series.x.DataField = "考试期数"
Series.y.DataField = "最高分" 'Dict(str6) 'm.Name

Series.DataLabelText = "{#YVAL}"

那你就添加多个图系，如

Series = Chart.SeriesList.add()
Series.Text = "最高分"
Series.x.DataField = "考试期数"
Series.y.DataField = "最高分"

Series = Chart.SeriesList.add()
Series.Text = "最低分"
Series.x.DataField = "考试期数"
Series.y.DataField = "最低分"

1、你可以做两个图表，分别显示；

2、认认真真看懂chart的帮助文档（一整章），请把帮助文档所有实例测试一遍，理解每句代码的意思

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

1、贴出代码；

2、关闭窗口重新测试；

3、【显示的是Y值处于每一个区间的个数】

测试了一下，这个图表不显示Y轴个数的。

你只能这样变通处理一下

Dim str7,str8,str9 As String
str7 = forms("统计").Controls("ComboBox7").value
str8 = forms("统计").Controls("ComboBox8").value
str9 = forms("统计").Controls("ComboBox9").value
Dim g As New GroupTableBuilder("统计表1", DataTables("成绩登记表"))
g.Groups.AddDef("班级")
g.Groups.AddDef("考试期数")
g.Groups.AddDef("课程名称", "科目", "科目")
g.Groups.AddDef("学号")
g.Groups.AddDef("姓名")
g.Totals.AddDef("分数")
g.Filter = "[班级] = '" & str7 & "' and [课程名称] = '" & str9 & "'and [考试期数] = '" & str8 & "'"
g.Build()
MainTable = Tables("统计表1")

Dim bChart1 As C1.Win.C1Chart.C1Chart  = chart.basecontrol  '图标坐标轴如何设置字体颜色
Dim lbls = bChart1.ChartLabels
For i As Integer = 0 To 14  '  t.Rows.Count - 1 '指定每个数据点的位置
    Dim lbl As C1.Win.C1Chart.Label = lbls.LabelsCollection.AddNewLabel()
    lbl.Text = Tables("统计_Table2").Compute("count(分数)", "分数>= " & i*10 & "and 分数 < " & i*10+10)
   
    lbl.AttachMethod = C1.Win.C1Chart.AttachMethodEnum.DataIndex
    lbl.AttachMethodData.GroupIndex = 0
    lbl.AttachMethodData.SeriesIndex = 0
    lbl.AttachMethodData.PointIndex = i
    lbl.Style.ForeColor = Color.Red
    lbl.style.font = new font("宋体", 15)
    lbl.Compass = LabelCompassEnum.South
    lbl.Visible = True
Next