ybil 版主的好,上面所有的代码,前面再加上下面的有无敌了。无论怎么打乱列的秩序都没问题了。
Tables("窗口1_Table1").Cols("单号").Move(0)
Tables("窗口1_Table1").Cols("备注").Move(Tables("窗口1_Table1").Cols.count-1)