老师，考勤表里根据考勤员筛选显示职工，想把职工的排序用手工调一下，设计一个上箭头和一个下箭头按钮，如何编写按钮的代码实现当前行用按钮调整位置呢？
参考：
http://www.foxtable.com/webhelp/topics/1846.htm。需要开启插入行标记：
http://www.foxtable.com/webhelp/topics/1791.htm
上移一行
With CurrentTable
.Current.Move(.Position - 1)
End With
下移一行
With CurrentTable
.Current.Move(.Position + 1)
End With
老师，上面的代码排序以后，再打开又恢复原样了。能不能直接把datatable数据库里的顺序修改呢？
不可能。如果开启插入行标记，表格默认肯定是根据插入行标记也就是_sortkey列排序的
老师，我是先筛选，然后
'----------------------------------------自动排序----------------------------------
Tables("当月考勤表2").Sort = "_Identify"
然后再重新排序，现在的问题是排序不能记忆
2楼的方式才可以保存。
任何使用代码排序都是临时性的。需要的时候每次都得调用代码
我就是用2楼的代码调整顺序，也点保存了，可是重新打开程序的时候不能记忆，恢复原样了
去掉下面代码啊，执行了代码肯定是按照代码排序的
Tables("当月考勤表2").Sort = "_Identify"