dt1.DataSource = g.BuildDataSource()
dt1.DataTable.DataCols.Add("折总班序",Gettype(Integer))
dt1.DataTable.DataCols.Add("总分班序",Gettype(Integer))
Dim Arys1 As List(Of String()) = dt1.DataTable.GetValues("考试名称|单位名称|年级")
For Each Ary1 As String() In Arys1
Dim drs As List(Of DataRow) = dt1.DataTable.Select("[考试名称] = '" & ary1(0) & "'and [年级] ='" & ary1(2) & "'", "折总平均 DESC")
For m As Integer = 0 To drs.Count - 1 '遍历所有行
If m > 0 AndAlso drs(m)("折总平均") = drs(m-1)("折总平均") Then '如果总分和上一行相同
drs(m)("折总班序") = drs(m-1)("折总班序") '则排名等于上一行
Else
drs(m)("折总班序") = m + 1 '设置排名
End If
Next
Next
我在电脑端做的是绑在了窗口表dt1排序的，但手机上我不晓得这个怎么改
加好友 
发短信
Post By：2018/10/16 20:27:00 [显示全部帖子]
