如下代码，剩余的自己改一下。
Dim dt As DataTable = DataTables("单位男子组总分")
Dim dt_source As DataTable = DataTables("比赛得分")
dt.DataRows.Clear
Dim dws As List(Of String) = dt_source.GetUniqueValues("组别 = '男子组'", "单位")
For Each dw As String In dws
Dim ndr As DataRow = dt.AddNew
ndr("单位") = dw
ndr("总分") = dt_source.Compute("sum(得分)", "组别 = '男子组' and 单位 = '" & dw & "'")
Next
Dim drs As List(Of DataRow) = dt.Select("", "总分 desc")
drs(0)("名次") = 1
For i As Integer = 1 To drs.Count - 1
If drs(i)("总分") = drs(i-1)("总分") Then
drs(i)("名次") = drs(i-1)("名次")
Else
drs(i)("名次") = i+1
End If
Next
加好友 
发短信
Post By：2013/10/29 23:18:00 [显示全部帖子]
