甜老师：
项目中的最高最低平均数按钮，我想再增加几个字段，试着做了一下，有些问题
你帮我看看怎么改，改的地方请用颜色标记一下。
再问一个问题：你计算的时候，最大max、最小min等，怎么没有声明变量？
Dim g As New CrossTableBuilder("成绩转置", 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("成绩转置")
'Std:标准偏差
'StdPop:总体标准偏差
'Sum:累积值
'Var:方差
'VarPop:总体方差
'--------------------------
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("参考人数", Gettype(String))
dtb.AddDef("年级", Gettype(String))
dtb.AddDef("班级", Gettype(String))
dtb.AddDef("科目", Gettype(String), 32)
dtb.AddDef("最高分", Gettype(Double))
dtb.AddDef("最低分", Gettype(Double))
dtb.AddDef("平均分", Gettype(Double))
dtb.AddDef("标准偏差", Gettype(Double), 32)
dtb.AddDef("总体标准偏差", Gettype(Double))
dtb.AddDef("样本方差", Gettype(Double))
dtb.AddDef("总样本方差", Gettype(Double))
dtb.Build()
'--------
Dim dic As new Dictionary(of String, String)
For Each c As Col In Tables("成绩转置").cols
dic.add(c.caption, c.name)
'--------
Next
Dim exp,flt As String
Dim dt As DataTable =DataTables("成绩转置")
Dim t1 As Table =Tables("统计")
t1.StopRedraw
Dim bjs As List(of String) = dt.GetUniqueValues("","班级")
Dim njs As List(of String) = dt.GetUniqueValues("","年级")
Dim cks As List(of String) = dt.GetUniqueValues("","参考人数")
For Each flt In bjs
Dim f As New Filler
f.SourceTable =DataTables("科目表")
f.DataTable = t1.DataTable
f.Fill()
t1.DataTable.ReplaceFor("班级",flt,"班级 Is null")
t1.DataTable.ReplaceFor("年级",flt,"年级 Is null")
t1.DataTable.ReplaceFor("参考人数",flt,"参考人数 Is null")
Next
For Each dc As Col In t1.Cols
If dc.Index > 1 Then
For Each dr As Row In t1.Rows
flt = "班级 = '" & dr("班级") & "'"
flt = "年级 = '" & dr("年级") & "'"
flt = "参考人数 = '" & dr("参考人数") & "'"
Select Case dc.Index
Case 2
exp = "Max(" & dic(dr("科目")) & ")"
Case 3
exp = "Min(" & dic(dr("科目")) & ")"
Case 4
exp = "Avg(" & dic(dr("科目")) & ")"
Case 5
exp = "Std(" & dic(dr("标准偏差")) & ")"
Case 6
exp = "StdPop(" & dic(dr("总体标准偏差")) & ")"
Case 7
exp = "Var(" & dic(dr("样本方差")) & ")"
Case 8
exp = "VarPop(" & dic(dr("总样本方差")) & ")"
Case 9
exp = "count(" & dic(dr("参考人数")) & ")"
End Select
dr(dc.name) =dt.Compute(exp,flt)
Next
End If
Next
t1.DataTable.SysStyles("EmptyArea").BackColor = Color.White
t1.ResumeRedraw
MainTable = t1
Tables("统计_Table2").DataSource = DataTables("统计")
加好友 
发短信
Post By：2018/10/30 12:12:00 [显示全部帖子]
此主题相关图片如下：qq图片20181030115512.png
