主题：怎样改变列的位置：真正移动列

问题描述：

1、通过“查看表结构”  增加数据列

2、将增加的列“上移”到第三列的的位置

3、遍历列名时，增加的列还是在最后，怎么解决？

问题展示：

Output.Show( "目录树表 各列的顺序为:")

Dim i = 0

For Each dc As DataCol In DataTables("目录树表").DataCols

    i = i + 1

    Output.Show(i & " : " & dc.Name)

Next

显示的结果为：

目录树表 各列的顺序为:

1 : 一代

2 : 二代

3 : 四代

4 : 五代

5 : 六代

6 : 七代

7 : 八代

8 : 九代

9 : 十代

10 : 三代