专家坐堂-[讨论]关于并列名次Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [讨论]关于并列名次  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=143080)

--  作者：工匠
--  发布时间：2019/11/13 10:44:00
--  [讨论]关于并列名次
老师好:
关于并列名次,请教如何实现(参考其它例子,但是结果效果却不一样)
Dim pcs As List(Of String) = DataTables("进出分析").GetValues("计算")
For Each pc As String In pcs

Dim drs As List(Of DataRow) = DataTables("进出分析").Select("[计算] = \'" & pc & "\'", "批次 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


Dim pcs1 As List(Of String) = DataTables("进出分析").GetValues("计算")
For Each pc1 As String In pcs1

Dim drs1 As List(Of DataRow) = DataTables("进出分析").Select("[计算] = \'" & pc1 & "\'", "采购数量 DESC")
For n1 As Integer = 0 To drs1.Count - 1 \'遍历所有行
If n1 > 0 AndAlso drs1(n1)("数量排名") = drs1(n1-1)("数量排名") Then \'如果名次和上一行相同
drs1(n1)("数量排名") = drs1(n1-1)("数量排名") \'则名次排名等于上一行
Else
drs1(n1)("数量排名") = n1 + 1 \'设置批次排名
End If
Next
Next
计算显示错误效果

此主题相关图片如下：并列名次.jpg

谢谢!
已参考:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=475518&ID=69207&skin=1

[此贴子已经被作者于2019/11/13 10:56:45编辑过]

--  作者：有点蓝
--  发布时间：2019/11/13 10:55:00
--

Dim pcs As List(Of String) = DataTables("进出分析").GetValues("计算")
For Each pc As String In pcs
Dim drs As List(Of DataRow) = DataTables("进出分析").Select("[计算] = \'" & pc & "\'", "批次 DESC")
For n As Integer = 0 To drs.Count - 1 \'遍历所有行
drs(n)("批次排名") = n + 1
Next
Dim drs1 As List(Of DataRow) = DataTables("进出分析").Select("[计算] = \'" & pc1 & "\'", "采购数量 DESC")
For n1 As Integer = 0 To drs1.Count - 1 \'遍历所有行
If n1 > 0 AndAlso drs1(n1)("采购数量") = drs1(n1-1)("采购数量") Then \'如果名次和上一行相同
drs1(n1)("数量排名") = drs1(n1-1)("数量排名") \'则名次排名等于上一行
Else
drs1(n1)("数量排名") = n1 + 1 \'设置批次排名
End If
Next
Next

--  作者：工匠
--  发布时间：2019/11/13 11:21:00
--
谢谢老师,还是不行,是不是我的系统平台和人家系统平台不一样呢,无论是计算单项排名还是多项排名,都是乱的,代码只有列名不同而已............
现上传例子,请帮看看,是不是我系统平台异常?
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:并列名次.foxdb

--  作者：有点蓝
--  发布时间：2019/11/13 11:35:00
--
测试没有问题，有什么问题？截图说明

--  作者：有点蓝
--  发布时间：2019/11/13 11:38:00
--
这个意思？

Dim pcs As List(Of String) = DataTables("进出分析").GetValues("计算")
For Each pc As String In pcs
Dim drs As List(Of DataRow) = DataTables("进出分析").Select("[计算] = \'" & pc & "\'", "批次 DESC,[_Identify]")
Dim idx As Integer = 1
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)("批次排名") = idx \'设置批次排名
idx += 1
End If
Next
idx = 1
Dim drs1 As List(Of DataRow) = DataTables("进出分析").Select("[计算] = \'" & pc & "\'", "采购数量 DESC")
For n1 As Integer = 0 To drs1.Count - 1 \'遍历所有行
If n1 > 0 AndAlso drs1(n1)("采购数量") = drs1(n1-1)("采购数量") Then \'如果名次和上一行相同
drs1(n1)("数量排名") = drs1(n1-1)("数量排名") \'则名次排名等于上一行
Else
drs1(n1)("数量排名") = idx \'设置批次排名
idx += 1
End If
Next
Next

--  作者：工匠
--  发布时间：2019/11/14 9:48:00
--
谢谢老师,就是这种效果,这种方法得出的数据用于目标激励和物料备库计划有很大的参考作用