Vb.net DevExpress Xtra报告：当详细信息栏没有任何数据时，如何在组页脚中显示标签？

如果a有一个名为：lblWarning的标签。我想在细节栏没有任何记录时显示它（Visible=True）。标签在组页脚中。

目前不在我的开发机器前面，但是类似的东西可能会起作用

Dim HadRecords As Boolean = False

Private Sub GroupFooter1_BeforePrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles GroupFooter1.BeforePrint
    If HadRecords = False Then
        lblWarning.visible = True
    Else
        lblWarning.visible = False
        HadRecords = False ' reset the flag '
    End If
End Sub

Private Sub Detail_BeforePrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles Detail.BeforePrint
    HadRecords = True ' set the flag '
End Sub

---

此事件附加到报告本身（在我的示例中，它被命名为XtraReport1）

GetCurrentRow（）

是

XtraReportBase

上的一个方法，它从主报表绑定源返回当前数据。如果数据不存在，则返回null

private void XtraReport1_BeforePrint(object sender, PrintEventArgs e)
{
    bool noDataFound = GetCurrentRow() == null;

    lblWarning.Visible = noDataFound;
}

VB中的相同处理程序：

Private Sub XtraReport1_BeforePrint(ByVal sender As System.Object, ByVal e As PrintEventArgs) Handles MyBase.BeforePrint
    Dim noDataFound As Boolean = GetCurrentRow() Is Nothing

    lblWarning.Visible = noDataFound
End Sub

---

没有记录时，组页眉/页脚标注栏没有打印设置，因此不会执行此子项。我的错误不指示VB.Net。