How can i create Sections runtime?

Posted by: omoridi on 4 August 2017, 3:12 pm EST

  • Posted 4 August 2017, 3:12 pm EST

    Dear Support

    I want to know how can i create many group runtime with my code. i write some application but make hang activereport

    please see my code.



    Dim idx As Long

    Dim t As Section

    Dim p As Long

    p = 1

    For idx = 0 To UBound(AllItem)

    RPT.Sections.Add "GH" & AllItem(idx).FieldName, p, ddSTGroupHeader, 100

    Set t = RPT.Sections("GH" & AllItem(idx).FieldName)

    t.DataField = AllItem(idx).FieldName



    RPT.Sections.Add "GF" & AllItem(idx).FieldName, p + UBound(GroupItem) + 2, ddSTGroupHeader, 100

    p = p + 1

    End If

    Next

    RPT.Sections.Add "DetailHeader", p, ddSTGroupHeader, 100

    p = p + 2



    RPT.Sections.Add "DetailFooter", p, ddSTGroupFooter, 100



    I make sum changed in mycode

    allitem is array is manual type
  • Replied 4 August 2017, 3:12 pm EST

    I found my problem i write footer type wrong
Need extra support?

Upgrade your support plan and get personal unlimited phone support with our customer engagement team

Learn More

Forum Channels