Creating reports and dashboards | Stimulsoft community forum

Hi,

Im using stimulsoft.reports.web.

But when Im used one of ur example- "PrintTable" , I got the error as shown below:

Assembly 'Stimulsoft.Report.Win' is not found

Below is ur example:
Private Sub PrintTable(ByVal Data As DataSet)

Dim Report As New StiReport()
Report.ScriptLanguage = StiReportLanguageType.VB

'Add data to datastore
Report.RegData("data", Data)
'Fill dictionary
Report.Dictionary.Synchronize()
Report.Dictionary.DataSources.Item(0).Name = "data"
Report.Dictionary.DataSources.Item(0).Alias = "data"

Dim Page As StiPage = Report.Pages.Item(0)

'Create HeaderBand
Dim HeaderBand As New StiHeaderBand()
HeaderBand.Height = 0.5
HeaderBand.Name = "HeaderBand"
Page.Components.Add(HeaderBand)

'Create Databand
Dim Databand As New StiDataBand()
Databand.DataSourceName = "data"
Databand.Height = 0.5
Databand.Name = "DataBand"
Page.Components.Add(Databand)

'Create texts
Dim Pos As Double = 0
Dim ColumnWidth As Double = StiAlignValue.AlignToMinGrid(Page.Width / Data.Tables(0).Columns.Count, 0.1, True)
Dim NameIndex As Integer = 1
Dim Column As DataColumn
For Each Column In Data.Tables(0).Columns

'Create text on header
Dim HeaderText As New StiText(New RectangleD(Pos, 0, ColumnWidth, 0.5))
HeaderText.Text.Value = Column.Caption
HeaderText.HorAlignment = StiTextHorAlignment.Center
HeaderText.Name = "HeaderText" + NameIndex.ToString()
HeaderText.Brush = New StiSolidBrush(Color.LightGreen)
HeaderText.Border.Side = StiBorderSides.All
HeaderBand.Components.Add(HeaderText)

'Create text on Data Band
Dim DataText As New StiText(New RectangleD(Pos, 0, ColumnWidth, 0.5))
DataText.Text.Value = "{data." + Column.ColumnName + "}"
DataText.Name = "DataText" + NameIndex.ToString()
DataText.Border.Side = StiBorderSides.All

'Add highlight
Dim Condition As StiCondition = New StiCondition()
Condition.BackColor = Color.CornflowerBlue
Condition.TextColor = Color.Black
Condition.Expression.Value = "(Line And 1) = 1"
Condition.Item = StiFilterItem.Expression
DataText.Conditions.Add(Condition)

Databand.Components.Add(DataText)

Pos = Pos + ColumnWidth

NameIndex = NameIndex + 1

Next


'Create FooterBand
Dim FooterBand As New StiFooterBand()
FooterBand.Height = 0.5
FooterBand.Name = "FooterBand"
Page.Components.Add(FooterBand)

'Create text on footer
Dim FooterText As New StiText(New RectangleD(0, 0, Page.Width, 0.5))
FooterText.Text.Value = "Count - {Count()}"
FooterText.HorAlignment = StiTextHorAlignment.Right
FooterText.Name = "FooterText"
FooterText.Brush = New StiSolidBrush(Color.LightGreen)
FooterBand.Components.Add(FooterText)

'Render without progress bar
Report.Render(False)
Report.Show()
End Sub


Please give me solution for this as this is very urgent .

Thanking you.

Hello,

This dll file is not included in the Reports.Web.
If you use the Reports.Web, then you need to assign a report to the StiWebViewer. The Show() method works for Reports.Net only.

Thank you.

Hi,

Thank you for the reply.

That means in Reports.Web , we cannot use design a report as above.This can be done only by Reports.Net.

Thank you.

Hello.

shilpa wrote:That means in Reports.Web , we cannot use design a report as above.This can be done only by Reports.Net.

No, you can use this code, but you must change this code: one of the next commands: Thank you.