主题：若干记录中小范围排序

参考代码

Dim bjs As List(Of String()) = DataTables("表A").GetValues("第一列|第二列|第三列")
For Each bj As String() In bjs
    Dim drs As List(Of DataRow) = DataTables("表A").Select("第一列 = '" & bj(0) & "' and 第二列 = '" & bj(1) & "' and 第三列 = '" & bj(2) & "'", "第一列,第二列,第三列,_sortkey")
    For n As Integer = 0 To drs.Count - 1 '遍历所有行
        drs(n)("第四列") = n + 1 '设置排名
    Next
Next