直接用代码处理吧
if CurrentTable.ColSel > 0 then CurrentTable.Cols(CurrentTable.ColSel).Move(CurrentTable.ColSel-1)End If