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

甜老师，能不能将两张表的图表叠在一起展示？

只是清除原来图系，即

 

好像不行

 

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

 

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

 

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

 

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

这段代码运行有问题，会出现“不在字典中”的报错

'------------------生成图表-------------------------
Dim dict As new Dictionary(of String,String)
For Each dc As DataCol In DataTables("统计表1").DataCols
    If dc.Caption > "" Then
    dict.Add(dc.Caption,dc.Name)
    End If
Next
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 = "ste6"
Series.x.DataField = "考试期数"
Series.y.DataField = Dict(str6) 'm.Name

Series.DataLabelText = "{#YVAL}"

 

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

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

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

这个意思？

 

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 = "最低分"

图表不展示，田老师你看看，是哪里问题？

 

 

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 = "最高分"
Series.x.DataField = "考试期数"
Series.y.DataField = Series.y.DataField = "最高分" 'm.Name
Series.DataLabelText = "{#YVAL}"

Series = Chart.SeriesList.add()
Series.Text = "最低分"
Series.x.DataField = "考试期数"
Series.y.DataField = Series.y.DataField = "最低分" 'm.Name
Series.DataLabelText = "{#YVAL}"

Series = Chart.SeriesList.add()
Series.Text = "平均分"
Series.x.DataField = "考试期数"
Series.y.DataField = Series.y.DataField = "平均分" 'm.Name
Chart.AxisX.Major = 10
Chart.AxisY.Major = 200
Series.DataLabelText = "{#YVAL}"
'----------------------------个性化图示----------------------
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South
Series.LineColor = Color.Red
 Series.MarkShape = MarkShapeEnum.OpenDiamond
 Series.MarkColor = Color.Green

是我复制站条的时候粗心了，搞定，谢谢

 

甜老师，否把个人成绩图表，与班级的成绩图表合在一起，比较查看