主题：数据表滚动条上方增加统计行

二表中的列名排列顺序一致，窗口中才能列对齐，请问如何设置列名顺序？（原来是通过加入到字典通过For　Ｔo输出）

那就根据Table而不是DataTable：

 

Dim dtb As New DataTableBuilder("统计")
For Each dc As Col In Tables("订单").Cols
    If dc.IsString
        dtb.AddDef(dc.name, Gettype(String))
    ElseIf dc.IsDate
        dtb.AddDef(dc.name, Gettype(Date))
    ElseIf dc.IsNumeric
        dtb.AddDef(dc.name, Gettype(Double))
    ElseIf dc.IsBoolean
        dtb.AddDef(dc.name, Gettype(Boolean))
    End If
Next
dtb.Build()