在Access中的表单中使用报表时，对计算字段进行排序失败

Question

我有一个报告，其中包含一些代码，可以在计算所得的列上进行排序，因此，当用户单击标签时，将对报告进行排序，这是以下代码：

Private Sub Label44_Click()

If Me.OrderBy = "IIf([SumOfCurrentPriceVol]<>0,([SumOfOfferedPriceVolume]-[SumOfCurrentPriceVol])/[SumOfCurrentPriceVol],0) DESC" Then
    Me.OrderBy = "IIf([SumOfCurrentPriceVol]<>0,([SumOfOfferedPriceVolume]-[SumOfCurrentPriceVol])/[SumOfCurrentPriceVol],0) ASC"
Else
    Me.OrderBy = "IIf([SumOfCurrentPriceVol]<>0,([SumOfOfferedPriceVolume]-[SumOfCurrentPriceVol])/[SumOfCurrentPriceVol],0) DESC"
End If

Me.OrderByOn = True
End Sub

当我自己使用报告时，它可以正常工作。 但是，如果我将报表放入表单中，则会收到以下错误消息：

"Run-Time Error '5': Invalid procedure call or argument"

在

Me.OrderByOn = True

我试图改变Me来Report ，我也得到了相同的结果。 任何可能失败的想法？

Answer 1

我能够重新创建该问题。 您可能不希望将复杂的计算添加到记录源中。 我用一个简单的单一字段重新创建了它。 这是我发现的：

（很抱歉，我似乎无法在此处上传图片；这很不幸）

检查报表属性的[数据]标签，然后查看Order By On Load 。 可能设置为是。 这意味着您不需要将其打开，因为它已经打开。

但同时， OrderBy的默认值为Null。 该报告将告诉您，如果OrderBy中存在空值，则OrderByOn = False ，尽管“ Order By On Load为true！

所以基本上，你需要设置一个默认的OrderBy的属性，设置默认OderBy在Report_Activate()事件，或更新您的代码来寻找一个/一周时间空值。

为什么您的给定代码在报表中起作用而在子报表中不起作用，这是一个谜。 可能是一个错误。 通过执行以上三个建议中的任何一个，我都能解决此问题。

哦，别忘了删除Me.OrderByOn = True因为这就是问题所在……某种Me.OrderByOn = True只读错误仅在子报表中触发。