在数据表视图中重新排序后重置 Microsoft Access 查询列顺序以匹配 SQL？

Question

在 Microsoft Access 查询的数据表视图中，如果通过拖动列重新排序，则它们不再遵循基础 Access SQL 中定义的顺序。如果在 SQL 中更改了列顺序，则数据表中的顺序不再遵循。即使订单被拖回以匹配 SQL，它仍然不会再次开始跟随 SQL。数据表视图中的列顺序基本上已经与 SQL 断开连接，并停留在“手动模式”。

如何重置，以便数据表视图中的列顺序再次开始遵循 SQL？

我在 StackOverflow 和 Google 上搜索过这个问题的答案，但没有找到。

注意：我非常精通 Access VBA，所以如果有人知道隐藏在查询的属性集合中的静态或瞬态属性，我可以使用它。谢谢。

Answer 1

对于QueryDef 中的每个字段，设置该字段的.Properties("ColumnOrder").Value = 0

这是立即窗口中的示例。我已手动将第一列移动到数据表上的最后一个位置，并使用该布局保存了查询。

? CurrentDb.QueryDefs("qryBase").Fields.Count
 3 

for i = 0 to 2 : ? CurrentDb.QueryDefs("qryBase").Fields(i).Properties("ColumnOrder").Value : next
 3 
 1 
 2 

将 ColumnOrder 更改为 0 会导致 Access 使用 querydef 的 SQL 来确定数据表视图的列顺序：

for i = 0 to 2 : CurrentDb.QueryDefs("qryBase").Fields(i).Properties("ColumnOrder").Value = 0 : next

for i = 0 to 2 : ? CurrentDb.QueryDefs("qryBase").Fields(i).Properties("ColumnOrder").Value : next
 0 
 0 
 0