DevExpress的Xtra的报告：如何在组页脚显示一个标签当细节带不具有任何数据？

StackOverflow https://stackoverflow.com/questions/1828308

  •  11-09-2019
  •  | 
  •  

题

如果一个有一个称为标签：LBL警告。我想显示它（可见= TRUE）当细节带没有任何记录。该标签是在组页脚。

有帮助吗？

解决方案

此事件被附在报告本身（在我的例子，它的命名XtraReport1）。 GetCurrentRow()是XtraReportBase的方法，其从所述主报告绑定源返回当前数据。如果数据不存在，则返回空。

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

其他提示

不要在此刻我的dev的机器前然而这样的事情可能工作

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
许可以下： CC-BY-SA 和 归因
不隶属于 StackOverflow
scroll top