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

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

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

测试没有问题，有什么问题？截图说明

这个意思？

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

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

主题：[讨论]关于并列名次