原来代码：
Dim drs As List(Of DataRow) = t.DataTable.Select("人员ID <> '合计'","效率 DESC")
增加循环变量 k ,代码如何改
Dim drs As List(Of DataRow) = t.DataTable.Select("人员ID <> '合计'","'效率_' & k DESC")
请各位老师指教，谢谢！
完整代码：
For Each r As Row In t.Rows
For k As Byte = 1 To i
Dim drs1 As List(Of DataRow) = t.DataTable.Select("人员ID <> '合计'","'效率_' & k DESC")
For n As Byte = 0 To drs1.Count - 1 '遍历所有行
If n > 0 AndAlso drs1(n)("效率_" & k) = drs1(n-1)("效率_" & k) Then '如果数值列和上一行相同
drs1(n)("名次_" & k) = drs1(n-1)("名次_" & k) '则排名等于上一行
Else
drs1(n)("名次_" & k) = n + 1 '设置名次
End If
Next
Next
Next
此主题相关图片如下：捕获8.png
[此贴子已经被作者于2016/3/12 13:30:25编辑过]
加好友 
发短信
Post By：2016/3/12 12:50:00 [只看该作者]
