试试
dim t as table = Tables("表A")maintable = tt.Select(t.RowSel, t.Cols("第三列").Index)t.FocusSyscmd.Column.InsertDataColumn()