主题：求下移行代码

我有一个费用表,包含“收入、支出、余额、未付（逻辑）、已付（逻辑）“几列，自己垫付款但财务没有报账的“未付”列为TRUE，当财务报账时“未付”列为FALSE，“已付”列为TRUE，我想实现当把中间某行的“已付”列变为TRUE时，该行能自动下移到当前表的最未行，从而保证余额列有序排列

将当前行移动到最后一行位置：

 

Tables("表A").Current.Move(Tables("表A").Rows.Count - 1)

建议楼主将未付（逻辑）、已付（逻辑）合并为一列，假定为[支付状态]列（逻辑），已付勾选（true）未付不勾选（false），将这列设置为自动排序即可实现，自动将已付款排到未付款后面，还减少一次操作（少勾选一列）、减少系统累赘、更无须写代码。

自动排序能改变[_SortKey]值吗？如果不能改变[_SortKey]值，流水账的代码如何用？

哦，从一楼没有看出是流水帐，但是，逻辑列原则上还是可以省却一列的！

谢谢程版的建议。加一列付款日期，要是能够按付款日期排序后，把[_SortKey]按付款日期先后自动移动到对应的位置，那就方便了。不知程版有好方法没？

时间用e.date.now()精确到秒，通过勾选付款记录自动写入操作时间，它就应该自动排序了！

时间问题好解决，排序也好说，如何用代码直接对[_SortKey]赋值.

2楼代码移动行后，原_SortKey的值自动删除，并自动赋上新的值了。  如何用代码给SortKey列赋值要狐爸来开放了。