标题：这两个按钮公式能不能合二为一？
各学科年级排名公式：
e.Form.Controls("Label3").text="排名中,请稍候..."
Dim Time,Time1 As Date
Time = Date.now
Application.Doevents
DataTables("成绩排名").DataRows.Clear()
Dim f As New Filler
f.SourceTable = DataTables("成绩表")
f.SourceCols = "期数,班级,学号,姓名,语文,数学,英语,生物,思品,历史,地理,物理,化学,总分班级"
f.datatable = DataTables("成绩排名")
f.DataCols = "期数,班级,学号,姓名,语文,数学,英语,生物,思品,历史,地理,物理,化学,总分班级"
f.ExcludeExistValue = True
f.ExcludeNullValue = True
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) = "" Then
Continue For
End If
Dim drs As List(Of DataRow) = CurrentTable.datatable.Select("[期数] = " & pm(i), 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
Tables("成绩排名").Sort = "总分 DESC"
CurrentTable.Redraw = True
Time1 = Date.Now
e.Form.Controls("Label3").text="耗时 " & (Time1-Time).TotalSeconds & " 秒"
下面是各学科班级排名公式：
e.Form.Controls("Label3").text="排名中,请稍候..."
Dim Time,Time1 As Date
Time = Date.now
Application.Doevents
DataTables("成绩排名").DataRows.Clear()
Dim f As New Filler
f.SourceTable = DataTables("成绩表")
f.SourceCols = "期数,班级,学号,姓名,语文,数学,英语,思品,历史,地理,生物,物理,化学"
f.datatable = DataTables("成绩排名")
f.DataCols = "期数,班级,学号,姓名,语文,数学,英语,思品,历史,地理,生物,物理,化学"
f.ExcludeExistValue = True
f.ExcludeNullValue = True
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("Label3").text="耗时 " & (Time1-Time).TotalSeconds & " 秒"
这两个公式能不能合二为一？（做成一个按钮，即有年级排名，又有班级排名）
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:成绩管理系统.table |
不太明白楼主的意思，个人理解，一个窗口产生两个SQL表进行排序，（一个表为成绩排名，一个表为班级排名）
楼主的目的，有多层理解.
1、在一张表中，先按成绩排序，再按班级排序（分先后）
2、在一张表中，按成绩排序，在另一张表中按班级排序。
以上产生的结果是不相同的。所以代码也不一致。
不知是否个人理解问题？
各位高手，这个成绩库结构应该如何设计为好？
刚找一篇，还没看懂
http://wenku.baidu.com/view/5215d607e87101f69e319554.html