主题：表格中怎样实现对行和列的拖拽排序？

想在表格中通过拖动人员或者拖动行号、列号的形式进行人员的重新排列；比如想把第10条记录拖到第3条，而不是一行一行往上移动，该怎样实现？

试试看，冰的主意应该不会错，先谢过啦！

这下，行是可以拖动了，可是单击列标题的时候，第一行会直接跑到最后一行。

    If e.newrange.TopRow>=0  Then
            If  e.Table.Current.Index>=0 And e.Table.Current.Index<=e.Table.count-1 Then
                If e.Table.TopPosition<e.Table.Current.Index  Then
                    e.Table.Current.Move(e.Table.TopPosition)
                Else
                    e.Table.Current.Move(e.Table.BottomPosition)
                End If
            End If
   End If
这段代码，单击列标题则第一行会跑到最后一行，如果把第一行代码改成e.newrange.TopRow>0 的时候，则第一行不能被拖动。

请问该怎样修改才能解决这个问题？

上次是按你的指导，实现了拖动行排序，但今天我发现，在.toprow=0的时候，好像是同时也选中了列头，所以点击列头的时候，第一行会自己跑到最后一行，同时也不能选中整列了，这不符合常用习惯。改成>0就没问题了，但第一行却不能拖动。

    现在希望第一行也能正常拖动，并且单击列头的时候依然能够选中整列。

这样貌似不行，单击列头，第一列仍然会跑到最后一行，并且表内其他行也不能拖动了。

      想通过拖动行的方式对人员按人员编号进行重新排序，而人员编号由系统自动计算生成。按上述方法移动人员后，系统再次生成的人员编号还是移动前的编号，怎么解决呢？

请问sortkey列的作用是什么？我确实想根据我移动后的顺序排列并自动编号，但自动编号与移动之前没有变化。