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

点击浏览该文件:教学信息管理系统.table

其二，“总分”列是根据”考生类别“来统计的，如”文科“的总分=语文+数学+英语+政治+历史+地理，在排名表中如何体现出来？谢谢！

成绩排名表，总分列表达式：

iif([考生类别] = \'文科\',IsNull([语文],0) + IsNull([数学],0) + IsNull([英语],0) + IsNull([政治],0) + IsNull([地理],0) + IsNull([历史],0) ,
IsNull([语文],0) + IsNull([数学],0) + IsNull([英语],0) + IsNull([政治],0) + IsNull([地理],0) + IsNull([历史],0) + IsNull([物理],0) + IsNull([化学],0) + IsNull([生物],0))

按期数排名按钮代码前一段改成：

e.Form.Controls("Label1").text="排名中,请稍候..."
Dim Time,Time1 As Date
Time = Date.now
Application.Doevents
DataTables("成绩排名").DataRows.Clear()
Dim f As New Filler
f.SourceTable = DataTables("成绩表")
f.DataTable = DataTables("成绩排名")
f.ExcludeExistValue = True
f.Filter = "期数 is not null"
f.Fill

……

这个没必要改吧？

真要改是这样定义的：

Dim pm As List(Of String()) = CurrentTable.DataTable.GetUniqueValues( "","期数","班级")

不过这样发动后整个代码差不多要全部改动了。

可是如果不改的话，单击“按期数和班级排名”按钮是没有排名显示了，谢谢！

e.Form.Controls("Label1").text="排名中,请稍候..."
Dim Time,Time1 As Date
Time = Date.now
Application.Doevents
DataTables("成绩排名").DataRows.Clear()
Dim f As New Filler
f.SourceTable = DataTables("成绩表")
f.DataTable = DataTables("成绩排名")
f.ExcludeExistValue = True
f.Filter = "期数 is not null"
f.Fill

Dim pm As List(Of String()) = CurrentTable.DataTable.GetUniqueValues("","期数","班级")
Dim pmc As Integer
Dim ColNames() As String = {"语文","数学","英语","政治","地理","历史","生物","化学","物理","总分"}
Dim TotalName As String
CurrentTable.Redraw = False
For Each ColName As String In ColNames
    For i As Integer = 0 To pm.Count -1
        If pm(i)(0) = "" Then
            Continue For
        End If
        Dim drs As List(Of DataRow) = CurrentTable.DataTable.Select("[期数] = \'" & pm(i)(0) & "\'And [班级] = \'" & pm(i)(1) & "\'", ColName & " DESC")
        pmc = 0
        TotalName = ColName & "排名"
        For n As Integer = 0 To drs.Count - 1
            pmc = pmc +1
            If n > 0 AndAlso drs(n)(ColName ) = drs(n-1)(ColName) Then
                drs(n)(TotalName ) = drs(n-1)(TotalName )
            Else
                drs(n)(TotalName ) = pmc
            End If
        Next
    Next
Next

CurrentTable.Redraw = True
Tables("成绩排名").Sort = "期数,班级,总分排名"
Time1 = Date.Now
e.Form.Controls("Label1").text="耗时 " & (Time1-Time).TotalSeconds & " 秒"

http://www.foxtable.com/bbs/dispbbs.asp?boardid=5&Id=1685&page=6

谢谢！