以文本方式查看主题

-  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=107630)
--  作者：zhangchi96
--  发布时间：2017/10/5 21:50:00
--  若干记录中小范围排序
一段数据：


图片点击可在新窗口打开查看此主题相关图片如下：111.png
图片点击可在新窗口打开查看

现在重新排序，依次关键字为 省 市 部门 月 日


图片点击可在新窗口打开查看此主题相关图片如下：2222.png
图片点击可在新窗口打开查看

排序后希望在 省 市 部门 三项 相同的范围作为一组进行 排序，最后更新全部记录，重新写 序号，敬请老师指导！顺祝节日快乐！

图片点击可在新窗口打开查看
[此贴子已经被作者于2017/10/5 21:54:39编辑过]
--  作者：有点甜
--  发布时间：2017/10/6 11:16:00
--  

参考代码

 

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
--  作者：joe_xgp
--  发布时间：2017/10/8 8:50:00
--  
版主老师过节好，假如以前开发的程序中，已经用的旧的语法GetUniqueValues，要不要把这个语法修改了，是不需要用GetUniqueValues，还是不能用GetUniqueValues？感谢版主！！
--  作者：有点甜
--  发布时间：2017/10/8 9:07:00
--  
以下是引用joe_xgp在2017/10/8 8:50:00的发言：
版主老师过节好，假如以前开发的程序中，已经用的旧的语法GetUniqueValues，要不要把这个语法修改了，是不需要用GetUniqueValues，还是不能用GetUniqueValues？感谢版主！！

 

可以用 GetUniqueValues 代替 GetValues 的。以后尽量使用 GetValues，效率好一些。