主题：生成的临时表，如何根据制定的条件调整列（字段）的位置？

还有一个：

http://help.foxtable.com/topics/1775.htm

做个能说明问题的简单例子上传，不要将整个项目上传。

我测试可以上传附件的。

压缩一下，换个短的文件名再上传。

这个已经是很简单的办法了。

这是通用的，你根据那个面积统计都一样适用：

Dim idx As Integer
For Each c As Col In Tables("统计表1").Cols
    c.TextAlign  = TextAlignEnum.Center
    idx = 0
    Select Case c.Name
        Case "地块一_面积1"
            idx = Tables("统计表1").cols("地块一_地块名").Index
        Case "地块二_面积2"
            idx = Tables("统计表1").cols("地块二_地块名").Index
        Case "地块三_面积3"
            idx = Tables("统计表1").cols("地块三_地块名").Index
    End Select
    If idx > 0 Then
        c.move(idx +1)
    End If
Next

你的代码编排太恐怖了，看起来很费力，建议看看：

http://help.foxtable.com/topics/1834.htm