以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  把某一列排序后移动行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161285)
--  作者：13796361423
--  发布时间：2021/3/12 9:17:00
--  把某一列排序后移动行
我想把第一列升序或降序排列，排列后中间那部分是12  。   我想在所有行中间的地方，分两半，上半部分到头几行的位置， 下半部分到尾几行位置。 请问如何能实现？
图片点击可在新窗口打开查看此主题相关图片如下：888.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2021/3/12 9:17:49编辑过]
--  作者：有点蓝
--  发布时间：2021/3/12 9:30:00
--  
Tables("表A").sort = "第一列"
Dim idx As Integer = math.Floor(Tables("表A").Rows.Count / 2)
For i As Integer = 0 To idx
    Tables("表A").Rows(i)("第二列") = "上半部分"
Next
For i As Integer = idx+1 To Tables("表A").Rows.Count - 1
    Tables("表A").Rows(i)("第二列") = "下半部分"
Next