做个计时器,然后执行下面代码
dim t as table = Tables("表A")t.rows(0).Move(t.rows.count-1)
http://www.foxtable.com/webhelp/scr/0657.htm