Dim bjs As List(Of String) = DataTables("净销量").GetValues("**销量完成排名一览表_市场部")
For Each bj As String In bjs
'获得该班级的全部行,按总分降序排序
Dim drs As List(Of DataRow) = DataTables("净销量").Select("[**销量完成排名一览表_市场部] = '" & bj & "'", "**销量完成排名一览表_合计_完成进度 desc")
For n As Integer = 0 To drs.Count - 1 '遍历所有行
If n > 0 AndAlso drs(n)("**销量完成排名一览表_合计_完成进度") = drs(n-1)("**销量完成排名一览表_合计_完成进度") Then '如果总分和上一行相同
drs(n)("***销量完成排名一览表_排名") = drs(n-1)("***销量完成排名一览表_排名") '则排名等于上一行
Else
drs(n)("***销量完成排名一览表_排名") = n + 1 '设置排名
End If
Next
Next
加好友 
发短信
Post By：2017/7/28 20:52:00 [显示全部帖子]
