访问 2010 VBA 以使用现有分组对报表进行排序答案

【问题标题】：Access 2010 VBA to Sort a Report with existing grouping访问 2010 VBA 以使用现有分组对报表进行排序
【发布时间】：2018-06-25 20:45:09
【问题描述】：

我有一个 Access 2010 报告，其中包含我在设计中设置的两个组。第一组具有人员数据（姓名、出生日期、当前地址、客户积分、客户上次下订单的日期）。第二组有当前人的所有订单。调用此报告的表单具有排序依据选项。他们可以按名称升序或降序、他们订购某物的最后日期 asc/desc 以及他们有多少客户点 asc/desc 进行排序。所有这些排序选项都应该适用于第一个/主要报告组中的数据。当报告已经包含组时，有什么方法可以调用此报告并在 VBA 中设置 orderby？我正在从表单中传递参数并尝试加载
Me.OrderBy = ArgIn(2)

Me.OrderByOn = True

我也在公开赛中尝试过。报告打开但忽略排序/排序依据。

谢谢

【问题讨论】：

GroupLevel.GroupOn

标签： vba

【解决方案1】：

除了传递参数，你可以走两条路：

创建 3 个完全相同的报表，但排序不同（在组报表设计中，您可以对基础项目进行排序），并有一个带有下拉或列表菜单的表单触发按钮，供用户选择特定的报表排序和然后调用特定的报告。
在 VBA 中，创建一个动态的、用户定义的 querydef (Set qrydef = db.CreateQueryDef("[QUERY NAME]", strSQL)，由三个特定 SQL 语句上的表单触发器按钮调用对于每个 ORDER BY 类型（姓氏、日期、分数）。将 querydef 设置为报告的记录源。

【讨论】：

ORDER BY 被 Access Reports 忽略，多个报告使维护开销增加三倍。

【解决方案2】：

最好的动态方式是使用 .SortOrder 和 .ControlSource：

Private Sub Report_Open(Cancel As Integer)

    ' Set SortOrder property to Ascending order (SortOrder = False)
    Me.GroupLevel(0).SortOrder = blSortOrder
    Me.GroupLevel(0).ControlSource = strSortBy

End Sub

.ControlSource 是要排序的报告表/查询的字段名称。过滤器层次结构的处理方式如 Me.GroupLevel(0)、Me.GroupLevel(1)、Me.GroupLevel(2) 等。

通过 Me.OpenArgs 传入此数据。

Me.GroupLevel(0).SortOrder = Split(Me.OpenArgs, "|")(0)
Me.GroupLevel(0).ControlSource = Split(Me.OpenArgs, "|")(1)

像这样调用报告：

DoCmd.OpenReport "ReportName", acViewPreview, , , acWindowNormal, strSortBy & "|" & blSortOrder

...如果您使用分组，请确保已排序的字段在其表中是唯一的。（请注意，当您添加标题时，Access 会将排序变为分组）。

【讨论】：