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

 

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

点击浏览该文件:成绩管理试做.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 = "最高分"
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

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

 

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

Histogram数字分布计算好像有问题，也可能我没有理解图标显示的意思

 

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

 

计算出的数据不正确。是不是我理解的有问题

 

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 Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= Forms("统计").Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Histogram ' 设置图表类型
Chart.DataSource = "统计表1" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Histogram.IntervalStart = 0 '指定起始值
Series.Histogram.IntervalWidth = 10 '指定分区宽度
Series.Histogram.IntervalNumber= 10 '指定分区个数
Series.Y.DataField = "分数" 'Y轴绑定到数量列

Chart.AxisX.Major = 20
Chart.AxisY.Major = 8
Chart.AxisX.Text = "分数段"
Chart.AxisY.Text = "人数"
Series.DataLabelText = "{#YVAL}"
'
Tables("统计_Table2").DataSource = DataTables("统计表1")

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

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

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

真有你的老甜，绝对的仰视羡慕，谢谢！！！

甜老师，我这个项目的统计表，如何设计报表模板？

是不是临时表不能设计成模板？

好像可以。