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

AfterSelRangeChange 事件

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

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

Bin         冰     ？    

好听                    

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

    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就没问题了，但第一行却不能拖动。

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

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