主题：[求助]如何用代码在指定表指定位置增加列（非临时列）？

各位老师：

      我刚接触狐表，在设计一个小项目时，遇到一个小小的问题，一直解决不了：我在一个窗体中设计了一个按钮，希望可以在指定位置增加一列，不指定列名，可以调出系统设置列的格式，再输入列名，不能用ADD，因为不是临时列。下面是我的代码：

With Tables("境内飞机交通")

    .Select(.RowSel, .Cols("备注").Index) 

Syscmd.Column.InsertDataColumn()

End With

  在运作时，有时可以顺利实现，但有时却跳到主窗口里增加了一列。

如何破？

试试

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