标题：求打开表A自动按表A日期列升序排序代码

If MainTable.Name = "订单" Then '如果选择的主表是订单表

Tables("订单").Sort = "日期"
End If

谢谢杨版！原来我放错了地方。