主题：成绩排名

老师，出错

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

代码？

Dim dt1 As DataTable = DataTables("成绩分析_Table1")

For Each dc As DataCol In dt1.DataCols
    Dim Tel As String = dc.Caption
    If Tel .Contains("_分数") Then
        Dim Parts() As String = Tel.Split("_")
        dt.DataCols.Add(Parts(0) & "_名次", Gettype(Double))
    End If
Next

dim lst as new list(of string)

谢谢

老师位置给个提示

没看懂，什么位置？

生成代码：

Dim t As Table = e.Form.controls("Table1").Table
e.Form.controls("NavBar1").SelectedPage.Butt
Dim SQL As String ="Sel ect  c.学期,班级,考试名称,c.学生编号,学生姓名,学科,学生分数 Fr om ({学生基本信息} a Inner JOIN {学生缴费} b ON b.学生编号 = a.学生编号) Inner JOIN {学生成绩} c ON c.学期 = b.学期 And c.学生编号 = b.学生编号 Where c.学期 = '20191'"
Dim cmd As New SQLCommand
cmd.CommandText = SQL
Dim dt As DataTable
dt = cmd.ExecuteReader()

Dim b As New CrossTableBuilder("统计表1", dt)
b.HGroups.AddDef("学期")
b.HGroups.AddDef("考试名称")
b.HGroups.AddDef("班级")
b.HGroups.AddDef("学生编号")
b.HGroups.AddDef("学生姓名")
b.VGroups.AddDef("学科","{0}_分数")
b.Totals.AddDef("学生分数", "学生分数")
t.DataSource = b.BuildDataSource()
Dim lst As new List(of String)
dt = DataTables("成绩分析_Table1")
For Each dc As DataCol In dt.DataCols
    Dim Tel As String = dc.Caption
    If Tel .Contains("_分数") Then
        Dim Parts() As String = Tel.Split("_")
        lst.add(Parts(0) & "_名次")
    End If
Next
For Each s As String In lst
    dt.DataCols.Add(s, Gettype(Double))
Next

比如：语文_分数、语文_名次 排在一起，数学_分数、数学_名次 排在一起

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

For Each s As String In lst
    dt.DataCols.Add(s, Gettype(Double))