按内容高度增加“Section of Section”报告

本文关键字：Section of 报告 增加 高度 | 更新日期: 2023-09-27 18:30:09

我正在尝试在ActiveReport的详细信息部分添加内容。但截面高度限制为2英寸。它只需要（2/0.2=）10个项目。我希望该部分的高度随着内容的增加而增加，这样它就可以采用所有项目。.CanGrow似乎不起作用。我使用的代码如下。

Dim lObjSecRpt As New GrapeCity.ActiveReports.SectionReport()
Dim lObjLbl As New GrapeCity.ActiveReports.SectionReportModel.Label()
Dim c As Single = 0.2F
Try
lObjSecRpt.Sections.InsertPageHF()
lObjSecRpt.Sections(0).BackColor = Color.WhiteSmoke
lObjSecRpt.Sections(0).Height = 0.0F
lObjSecRpt.Sections.Insert(1, New GrapeCity.ActiveReports.SectionReportModel.Detail())
lObjSecRpt.Sections(1).BackColor = Color.WhiteSmoke
lObjSecRpt.Sections(1).CanGrow = True
For Each dr As DataRow In mObjDtReport.Rows
    lObjLbl = New GrapeCity.ActiveReports.SectionReportModel.Label()
    lObjLbl.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Left
    lObjLbl.Font = New System.Drawing.Font("Arial", 10, FontStyle.Regular)
    lObjLbl.Location = New PointF(0.0F, c)
    lObjLbl.Height = 0.2F
    lObjLbl.Width = 1.0F
    lObjLbl.Text = CStr(dr("RptObjNam"))
    lObjSecRpt.Sections(1).Controls.Add(lObjLbl)
    c += c
Next
Me.rptViewer.LoadDocument(lObjSecRpt)

按内容高度增加“Section of Section”报告

弹药，

在代码中，您要做的是创建部分并动态地向这些部分添加控件。因此，这就像在运行时创建报表布局一样。由于您只是将控件添加到详细信息部分，因此不会为每个控件触发详细信息部分的格式化事件，因为它没有绑定到任何数据。相反，你只是在添加控件。你可以在这里查看动态创建报告的示例。

如果您希望详细信息部分应该增长以显示所有添加的控件，那么您需要根据其中控件的总高度来增加其高度。例如，查看下面的示例代码，该代码演示了如何做到这一点。您可以简单地将此代码添加到Form_Load事件中进行验证

    Dim lObjLbl As New GrapeCity.ActiveReports.SectionReportModel.Label()
Dim c As Single = 0.2F
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Dim rpt As New GrapeCity.ActiveReports.SectionReport
    rpt.Sections.InsertPageHF()
    rpt.Sections(0).BackColor = Color.Yellow
    rpt.Sections(0).Height = 1.0F
    rpt.Sections.Insert(1, New GrapeCity.ActiveReports.SectionReportModel.Detail())
    rpt.Sections(1).Name = "Detail"
    rpt.Sections("Detail").BackColor = Color.Gainsboro
    rpt.Sections("Detail").CanGrow = True
    Dim i As Integer
    For i = 0 To 20
        Dim lObjLbl As New GrapeCity.ActiveReports.SectionReportModel.Label()
        lObjLbl.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Left
        lObjLbl.Font = New System.Drawing.Font("Arial", 10, FontStyle.Regular)
        lObjLbl.Location = New PointF(0.0F, c)
        lObjLbl.Size = New SizeF(1.0F, 0.2F)
        lObjLbl.Text = "Record: " + i.ToString()
        lObjLbl.BackColor = Color.Aqua
        rpt.Sections("Detail").Controls.Add(lObjLbl)
        c += 0.2
    Next
    Dim height As Double = 0
    For Each control As GrapeCity.ActiveReports.SectionReportModel.ARControl In rpt.Sections("Detail").Controls
        height = height + control.Height
    Next
    rpt.Sections("Detail").Height = height
    Viewer1.LoadDocument(rpt)
End Sub

我希望这能有所帮助。

相关文章：