- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]增加循环变量 k ，这条代码如何改（已解决） (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=82141)
-- 发布时间：2016/3/12 12:50:00
-- [求助]增加循环变量 k ，这条代码如何改（已解决）
原来代码：
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编辑过]
-- 发布时间：2016/3/12 13:21:00
--
Dim drs As List(Of DataRow) = t.DataTable.Select("人员ID <> \'合计\'","效率, " & k & " DESC")
[此贴子已经被作者于2016/3/12 13:20:51编辑过]
-- 发布时间：2016/3/12 13:28:00
--
Dim drs As List(Of DataRow) = t.DataTable.Select("人员ID <> \'合计\'","效率, " & k & " DESC")
字段名中必须要有变量k,否则报错。
-- 发布时间：2016/3/12 13:30:00
--
谢谢黄老师的指教，问题解决了，再次衷心感谢！！