[求助]增加循环变量 k ，这条代码如何改（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

原来代码：

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

此主题相关图片如下：捕获8.png

[此贴子已经被作者于2016/3/12 13:30:25编辑过]

主题：[求助]增加循环变量 k ，这条代码如何改（已解决）