Creating reports and dashboards | Stimulsoft community forum

Code: Select all

 Dim parentReport As Stimulsoft.Report.StiReport = TryCast(sender, Stimulsoft.Report.StiReport)
            If parentReport Is Nothing Then
                Exit Sub
            End If

            Dim comp As Stimulsoft.Report.Components.StiComponent = parentReport.GetComponentByName(e.SubReportName)
            If comp Is Nothing Then
                Exit Sub
            End If

            Dim dataBand As Stimulsoft.Report.Components.StiDataBand = comp.GetDataBand()
            If dataBand Is Nothing Then
                'This subreport is not on an databand. Just display it.

            Else
                'Databand found.
                Dim data As Stimulsoft.Report.Dictionary.StiDataSource

                data = parentReport.Dictionary.DataSources(dataBand.DataSourceName)
                If data Is Nothing Then
                    Exit Sub
                End If

                Dim value As Object = data("CODE")
                If value Is Nothing Then
                    Exit Sub
                End If
                Debug.WriteLine(data.Position & " ->" & value.ToString)
            End If