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

 

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

 

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

 

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

 

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

 

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

 

1、贴出代码；

 

2、关闭窗口重新测试；

 

3、【显示的是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 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

 

测试了一下，这个图表不显示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 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= 15 '指定分区个数
Series.Y.DataField = "分数" 'Y轴绑定到数量列

Chart.AxisX.Major = 20
Chart.AxisY.Major = 8
Chart.AxisX.Text = "分数段"
Chart.AxisY.Text = "人数"
'
Tables("统计_Table2").DataSource = DataTables("统计表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

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

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

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

好像可以。

 

 

甜老师
此主题相关图片如下：qq图片20181113105030.png

参考代码

 

Dim r As Row = e.form.controls("Table1").Table.Current

msgbox(r("学号") & "-" & r("班级") & "-" & r.table.cols(4).caption & ".pdf")