Select Multiple tables in Report Wizard
Select Multiple tables in Report Wizard
I hav used multiple tables to create a report. If i try creating report in report designer. I can add multiple bands( tables) and can place their respective fields under them.
But incase if i try designing some report using Report Wizard, it allows me select one table only.
Kindly let me know the right behavior for creating a report. Should we create report( in report designer even) by placing one table band only which must hav all the other tables in relation( which populated related tables under the main table).or is it ok to place multiple tables bands.
But incase if i try designing some report using Report Wizard, it allows me select one table only.
Kindly let me know the right behavior for creating a report. Should we create report( in report designer even) by placing one table band only which must hav all the other tables in relation( which populated related tables under the main table).or is it ok to place multiple tables bands.
Select Multiple tables in Report Wizard
Please choose Master-Detail Wizard and you will be possible to select more than one table at once.ngaheer wrote:I hav used multiple tables to create a report. If i try creating report in report designer. I can add multiple bands( tables) and can place their respective fields under them.
But incase if i try designing some report using Report Wizard, it allows me select one table only.
Kindly let me know the right behavior for creating a report. Should we create report( in report designer even) by placing one table band only which must hav all the other tables in relation( which populated related tables under the main table).or is it ok to place multiple tables bands.
Thank you.
Select Multiple tables in Report Wizard
Can u please let me know, how can i use this master detail wizard.
my current code working for wizard is //
my current code working for wizard is //
Code: Select all
Private Sub SetReportWizard()
Dim MasterReport As New Reports.Report
Dim report1 As Stimulsoft.Report.StiReport
report1 = PopulateReportDesign()
Dim outputFieldSet As OutputFieldSet = OutPutFieldSetDataStore.getInstance.find(_reportLayout.RLAOFSID)
Dim ds As DataSet = ReportExecuter.ExtractSchema(outputFieldSet)
report1.RegData("Data", ds)
report1.Dictionary.Synchronize()
Dim wizard As Stimulsoft.Report.Design.Wizards.StiStandardWizardService = New Stimulsoft.Report.Design.Wizards.StiStandardWizardService()
Dim rptNew As Stimulsoft.Report.StiReport = wizard.CreateReport(report1)
If (rptNew IsNot Nothing) Then
rptNew.Design()
Dim reportLayout As String = rptNew.SaveToString
_reportLayout.RLALayout = reportLayout
End If
End Sub
Select Multiple tables in Report Wizard
you should replace this line of code:
with this line:
Code: Select all
Dim wizard As Stimulsoft.Report.Design.Wizards.StiStandardWizardService = New Stimulsoft.Report.Design.Wizards.StiStandardWizardService()
Code: Select all
Dim wizard As Stimulsoft.Report.Design.Wizards.StiMasterDetailWizardService = New Stimulsoft.Report.Design.Wizards.StiMasterDetailWizardService()
Select Multiple tables in Report Wizard
I did exactly u said me to.
Now it does let me select multiple tables and so on. But wat all i get after designing it is two small squares in the report designed.
suggest.
Now it does let me select multiple tables and so on. But wat all i get after designing it is two small squares in the report designed.
suggest.
Select Multiple tables in Report Wizard
We can not reproduce the issue with the creating report via wizard.
Please send sample to
for analysis.
Thank you.
Please send sample to

Thank you.
Select Multiple tables in Report Wizard
Hi.
My application supports two ways for designing a report. If i design the report from designer manually,
everything is working fine. I hav set MasterReport to my report. Following is the code to it.
Public Sub SetReportLayoutColumn()
Dim masterReport As New StiReport
Dim a As String = System.AppDomain.CurrentDomain.BaseDirectory.ToString
masterReport.Load(a & "Master.mrt")
Dim report As StiReport = PopulateReportDesign()
report.MasterReport = masterReport.SaveToString()
Dim reportLayout As String = report.SaveToString
_reportLayout.RLALayout = reportLayout
report.Design()
End Sub
The above code, properly sets the mater report using tostring method.
The problem comes when i try designing report using wizard. One of your rep said me to set this Master
Report as Class insted of a string. Now i am using a class, but still when i preview the report. It gives arror at
Streport.Compile.
Following is the code for playing wizard.(some code is commented, as i was just testing the working of this
report)
Private Sub SetReportWizard()
Dim MasterReport As New Reports.Report
StiReport.ReportType = MasterReport.GetType
Dim report1 As Stimulsoft.Report.StiReport
report1 = PopulateReportDesign()
'Dim masterReport As New StiReport
'Dim a As String = System.AppDomain.CurrentDomain.BaseDirectory.ToString
'masterReport.Load(a & "Master.mrt")
'report.MasterReport = masterReport.SaveToString()
'MyReport(master = New MyReport())
'StiReport.ReportType = typeof(MyReport);
Dim outputFieldSet As OutputFieldSet =
OutPutFieldSetDataStore.getInstance.find(_reportLayout.RLAOFSID)
Dim ds As DataSet = ReportExecuter.ExtractSchema(outputFieldSet)
report1.RegData("Data", ds)
report1.Dictionary.Synchronize()
'report.MasterReport = masterReport.SaveToString()
Dim wizard As Stimulsoft.Report.Design.Wizards.StiMasterDetailWizardService = New
Stimulsoft.Report.Design.Wizards.StiMasterDetailWizardService()
Dim rptNew As Stimulsoft.Report.StiReport = wizard.CreateReport(report1)
'rptNew.ReportType = MasterReport.GetType
If (rptNew IsNot Nothing) Then
'rptNew.RegData(rptNew.Dictionary.DataStore)
'rptNew.MasterReport = masterReport.SaveToString()
rptNew.Design()
Dim reportLayout As String = rptNew.SaveToString
_reportLayout.RLALayout = reportLayout
End If
End Sub
you hav seen the code above, now suggest how can get my master report working over the report created
using report wizard. i m using above code and the stack trace of error i get is.
at Stimulsoft.Report.StiReport.Compile(String path, Stream stream, StiOutputType outputType, Boolean
autoCreate)
at Stimulsoft.Report.StiReport.Compile(String path, StiOutputType outputType, Boolean autoCreate)
at Stimulsoft.Report.StiReport.Compile(String path, StiOutputType outputType)
at Stimulsoft.Report.StiReport.Compile(StiOutputType outputType)
at Stimulsoft.Report.StiReport.Compile()
at SDP.Base.QueryBuilder.ReportExecuter.ExecuteReport(Report report, String querySql, DataSet dataSet)
in D:\QueryBuilder2\QueryBuilder\ReportExecuter.vb:line 106
at SDP.Win.QueryBuilder.RunReport.HandlePreviewReport(Report execReport, String sql) in
D:\QueryBuilder2\QueryBuilderControls\Version2\RunReport.vb:line 239
at SDP.Win.QueryBuilder.RunReport.ExecuteReport(Object report) in
D:\QueryBuilder2\QueryBuilderControls\Version2\RunReport.vb:line 252
at System.Threading.ThreadHelper.ThreadStart_Context(Object state)
at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback,
Object state)
at System.Threading.ThreadHelper.ThreadStart(Object obj)
Error Message is
C:\Documents and Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(28,0) : warning BC40004: variable
'ReportName' conflicts with property 'ReportName' in the base class 'StiReport' and should be declared
'Shadows'.C:\Documents and Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(122,0) : error BC30451:
Name 'Cash' is not declared.C:\Documents and Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(122,0) :
error BC30205: End of statement expected.C:\Documents and Settings\Munish\Local
Settings\Temp\7hpwhfea.0.vb(126,0) : error BC30451: Name 'Cash' is not declared.C:\Documents and
Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(126,0) : error BC32017: Comma, ')', or a valid
expression continuation expected.C:\Documents and Settings\Munish\Local
Settings\Temp\7hpwhfea.0.vb(130,0) : error BC30451: Name 'Cash' is not declared.C:\Documents and
Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(130,0) : error BC32017: Comma, ')', or a valid
expression continuation expected.C:\Documents and Settings\Munish\Local
Settings\Temp\7hpwhfea.0.vb(134,0) : error BC30451: Name 'Cash' is not declared.C:\Documents and
Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(134,0) : error BC32017: Comma, ')', or a valid
expression continuation expected.C:\Documents and Settings\Munish\Local
Settings\Temp\7hpwhfea.0.vb(146,0) : error BC30451: Name 'Cash' is not declared.C:\Documents and
Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(146,0) : error BC30205: End of statement
expected.C:\Documents and Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(150,0) : error BC30451:
Name 'Cash' is not declared.C:\Documents and Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(150,0) :
error BC32017: Comma, ')', or a valid expression continuation expected.C:\Documents and
Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(154,0) : error BC30451: Name 'Cash' is not
declared.C:\Documents and Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(154,0) : error BC32017:
Comma, ')', or a valid expression continuation expected.C:\Documents and Settings\Munish\Local
Settings\Temp\7hpwhfea.0.vb(158,0) : error BC30451: Name 'Cash' is not declared.C:\Documents and
Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(158,0) : error BC32017: Comma, ')', or a valid
expression continuation expected.
Also tell me, if i set master report as string, why does it not work in that way, i mean to ask, why there is a
need of using class and not string.
My application supports two ways for designing a report. If i design the report from designer manually,
everything is working fine. I hav set MasterReport to my report. Following is the code to it.
Public Sub SetReportLayoutColumn()
Dim masterReport As New StiReport
Dim a As String = System.AppDomain.CurrentDomain.BaseDirectory.ToString
masterReport.Load(a & "Master.mrt")
Dim report As StiReport = PopulateReportDesign()
report.MasterReport = masterReport.SaveToString()
Dim reportLayout As String = report.SaveToString
_reportLayout.RLALayout = reportLayout
report.Design()
End Sub
The above code, properly sets the mater report using tostring method.
The problem comes when i try designing report using wizard. One of your rep said me to set this Master
Report as Class insted of a string. Now i am using a class, but still when i preview the report. It gives arror at
Streport.Compile.
Following is the code for playing wizard.(some code is commented, as i was just testing the working of this
report)
Private Sub SetReportWizard()
Dim MasterReport As New Reports.Report
StiReport.ReportType = MasterReport.GetType
Dim report1 As Stimulsoft.Report.StiReport
report1 = PopulateReportDesign()
'Dim masterReport As New StiReport
'Dim a As String = System.AppDomain.CurrentDomain.BaseDirectory.ToString
'masterReport.Load(a & "Master.mrt")
'report.MasterReport = masterReport.SaveToString()
'MyReport(master = New MyReport())
'StiReport.ReportType = typeof(MyReport);
Dim outputFieldSet As OutputFieldSet =
OutPutFieldSetDataStore.getInstance.find(_reportLayout.RLAOFSID)
Dim ds As DataSet = ReportExecuter.ExtractSchema(outputFieldSet)
report1.RegData("Data", ds)
report1.Dictionary.Synchronize()
'report.MasterReport = masterReport.SaveToString()
Dim wizard As Stimulsoft.Report.Design.Wizards.StiMasterDetailWizardService = New
Stimulsoft.Report.Design.Wizards.StiMasterDetailWizardService()
Dim rptNew As Stimulsoft.Report.StiReport = wizard.CreateReport(report1)
'rptNew.ReportType = MasterReport.GetType
If (rptNew IsNot Nothing) Then
'rptNew.RegData(rptNew.Dictionary.DataStore)
'rptNew.MasterReport = masterReport.SaveToString()
rptNew.Design()
Dim reportLayout As String = rptNew.SaveToString
_reportLayout.RLALayout = reportLayout
End If
End Sub
you hav seen the code above, now suggest how can get my master report working over the report created
using report wizard. i m using above code and the stack trace of error i get is.
at Stimulsoft.Report.StiReport.Compile(String path, Stream stream, StiOutputType outputType, Boolean
autoCreate)
at Stimulsoft.Report.StiReport.Compile(String path, StiOutputType outputType, Boolean autoCreate)
at Stimulsoft.Report.StiReport.Compile(String path, StiOutputType outputType)
at Stimulsoft.Report.StiReport.Compile(StiOutputType outputType)
at Stimulsoft.Report.StiReport.Compile()
at SDP.Base.QueryBuilder.ReportExecuter.ExecuteReport(Report report, String querySql, DataSet dataSet)
in D:\QueryBuilder2\QueryBuilder\ReportExecuter.vb:line 106
at SDP.Win.QueryBuilder.RunReport.HandlePreviewReport(Report execReport, String sql) in
D:\QueryBuilder2\QueryBuilderControls\Version2\RunReport.vb:line 239
at SDP.Win.QueryBuilder.RunReport.ExecuteReport(Object report) in
D:\QueryBuilder2\QueryBuilderControls\Version2\RunReport.vb:line 252
at System.Threading.ThreadHelper.ThreadStart_Context(Object state)
at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback,
Object state)
at System.Threading.ThreadHelper.ThreadStart(Object obj)
Error Message is
C:\Documents and Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(28,0) : warning BC40004: variable
'ReportName' conflicts with property 'ReportName' in the base class 'StiReport' and should be declared
'Shadows'.C:\Documents and Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(122,0) : error BC30451:
Name 'Cash' is not declared.C:\Documents and Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(122,0) :
error BC30205: End of statement expected.C:\Documents and Settings\Munish\Local
Settings\Temp\7hpwhfea.0.vb(126,0) : error BC30451: Name 'Cash' is not declared.C:\Documents and
Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(126,0) : error BC32017: Comma, ')', or a valid
expression continuation expected.C:\Documents and Settings\Munish\Local
Settings\Temp\7hpwhfea.0.vb(130,0) : error BC30451: Name 'Cash' is not declared.C:\Documents and
Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(130,0) : error BC32017: Comma, ')', or a valid
expression continuation expected.C:\Documents and Settings\Munish\Local
Settings\Temp\7hpwhfea.0.vb(134,0) : error BC30451: Name 'Cash' is not declared.C:\Documents and
Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(134,0) : error BC32017: Comma, ')', or a valid
expression continuation expected.C:\Documents and Settings\Munish\Local
Settings\Temp\7hpwhfea.0.vb(146,0) : error BC30451: Name 'Cash' is not declared.C:\Documents and
Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(146,0) : error BC30205: End of statement
expected.C:\Documents and Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(150,0) : error BC30451:
Name 'Cash' is not declared.C:\Documents and Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(150,0) :
error BC32017: Comma, ')', or a valid expression continuation expected.C:\Documents and
Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(154,0) : error BC30451: Name 'Cash' is not
declared.C:\Documents and Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(154,0) : error BC32017:
Comma, ')', or a valid expression continuation expected.C:\Documents and Settings\Munish\Local
Settings\Temp\7hpwhfea.0.vb(158,0) : error BC30451: Name 'Cash' is not declared.C:\Documents and
Settings\Munish\Local Settings\Temp\7hpwhfea.0.vb(158,0) : error BC32017: Comma, ')', or a valid
expression continuation expected.
Also tell me, if i set master report as string, why does it not work in that way, i mean to ask, why there is a
need of using class and not string.
Select Multiple tables in Report Wizard
Please send us master report.
Thank you.
Thank you.
Select Multiple tables in Report Wizard
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Data
Imports Stimulsoft.Controls
Imports Stimulsoft.Base.Drawing
Imports Stimulsoft.Report
Imports Stimulsoft.Report.ReportControls
Imports Stimulsoft.Report.Components
Namespace Reports
Public Class Report
Inherits Stimulsoft.Report.StiReport
Public Sub New()
MyBase.New
Me.InitializeComponent
End Sub
#Region "StiReport Designer generated code - do not modify"
Public OutputFieldSetName As System.String
Public ReportLayoutName As System.String
Public QueryCriteriaName As System.String
Public FieldList As System.String
Public QueryCriteriaSQL As System.String
Public ReportOptions As System.String
Public Page1 As Stimulsoft.Report.Components.StiPage
Public Container1 As Stimulsoft.Report.Components.StiContainer
Public Text1 As Stimulsoft.Report.Components.StiText
Public Overrides Sub SaveState(ByVal stateName As System.String)
MyBase.SaveState(stateName)
Me.States.Push(stateName, Me, "ReportName", Me.ReportName)
Me.States.Push(stateName, Me, "OutputFieldSetName", Me.OutputFieldSetName)
Me.States.Push(stateName, Me, "ReportLayoutName", Me.ReportLayoutName)
Me.States.Push(stateName, Me, "QueryCriteriaName", Me.QueryCriteriaName)
Me.States.Push(stateName, Me, "FieldList", Me.FieldList)
Me.States.Push(stateName, Me, "QueryCriteriaSQL", Me.QueryCriteriaSQL)
Me.States.Push(stateName, Me, "ReportOptions", Me.ReportOptions)
End Sub
Public Overrides Sub RestoreState(ByVal stateName As System.String)
MyBase.RestoreState(stateName)
Me.ReportName = CType(Me.States.Pop(stateName, Me, "ReportName"),System.String)
Me.OutputFieldSetName = CType(Me.States.Pop(stateName, Me, "OutputFieldSetName"),System.String)
Me.ReportLayoutName = CType(Me.States.Pop(stateName, Me, "ReportLayoutName"),System.String)
Me.QueryCriteriaName = CType(Me.States.Pop(stateName, Me, "QueryCriteriaName"),System.String)
Me.FieldList = CType(Me.States.Pop(stateName, Me, "FieldList"),System.String)
Me.QueryCriteriaSQL = CType(Me.States.Pop(stateName, Me, "QueryCriteriaSQL"),System.String)
Me.ReportOptions = CType(Me.States.Pop(stateName, Me, "ReportOptions"),System.String)
End Sub
Public Sub Text1__GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = "Testing of master report"
End Sub
Public Sub InitializeComponent()
Me.NeedsCompiling = false
'Variables init
Me.ReportName = ""
Me.OutputFieldSetName = ""
Me.ReportLayoutName = ""
Me.QueryCriteriaName = ""
Me.FieldList = ""
Me.QueryCriteriaSQL = ""
Me.ReportOptions = ""
Me.ReferencedAssemblies = New System.String() {"System.Dll", "System.Drawing.Dll", "System.Windows.Forms.Dll", "System.Data.Dll", "System.Xml.Dll", "Stimulsoft.Controls.Dll", "Stimulsoft.Base.Dll", "Stimulsoft.Report.Dll"}
Me.ReportAlias = "Report"
'
'ReportChanged
'
Me.ReportChanged = New Date(2007, 2, 23, 2, 50, 43, 78)
'
'ReportCreated
'
Me.ReportCreated = New Date(2006, 10, 9, 19, 1, 13, 0)
Me.ReportName = "Report"
Me.ReportUnit = Stimulsoft.Report.StiReportUnitType.Inches
Me.ReportVersion = "1.60"
Me.ScriptLanguage = Stimulsoft.Report.StiReportLanguageType.VB
'
'Page1
'
Me.Page1 = New Stimulsoft.Report.Components.StiPage
Me.Page1.Name = "Page1"
Me.Page1.PageHeight = 11.69
Me.Page1.PageWidth = 8.27
Me.Page1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 2, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.Page1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
'
'Container1
'
Me.Container1 = New Stimulsoft.Report.Components.StiContainer
Me.Container1.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 0, 7.5, 1.2)
Me.Container1.Name = "Container1"
Me.Container1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.Container1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
'
'Text1
'
Me.Text1 = New Stimulsoft.Report.Components.StiText
Me.Text1.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(1.8, 0.3, 3.8, 0.4)
Me.Text1.Name = "Text1"
AddHandler Me.Text1.GetValue, AddressOf Me.Text1__GetValue
Me.Text1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.Text1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.Text1.Font = New System.Drawing.Font("Arial", 26!)
Me.Text1.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.Text1.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.IndianRed)
Me.Text1.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.Text1.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, false, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
Me.Page1.Margins = New Stimulsoft.Report.Components.StiMargins(0.39, 0.39, 0.39, 0.39)
Me.Page1.ReportUnit = Nothing
Me.Page1.Watermark = New Stimulsoft.Report.Components.StiWatermark(New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.FromArgb(50, 0, 0, 0)), "", 45!, New System.Drawing.Font("Arial", 100!), false)
Me.Page1.Page = Page1
Me.Page1.Report = Me
Me.Container1.Page = Page1
Me.Container1.Parent = Page1
Me.Text1.Page = Page1
Me.Text1.Parent = Container1
'
'Add to Container1.Components
'
Me.Container1.Components.Clear
Me.Container1.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {Text1})
'
'Add to Page1.Components
'
Me.Page1.Components.Clear
Me.Page1.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {Container1})
'
'Add to Pages
'
Me.Pages.Clear
Me.Pages.AddRange(New Stimulsoft.Report.Components.StiPage() {Page1})
End Sub
#End Region 'StiReport Designer generated code - do not modify
End Class
End Namespace
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Data
Imports Stimulsoft.Controls
Imports Stimulsoft.Base.Drawing
Imports Stimulsoft.Report
Imports Stimulsoft.Report.ReportControls
Imports Stimulsoft.Report.Components
Namespace Reports
Public Class Report
Inherits Stimulsoft.Report.StiReport
Public Sub New()
MyBase.New
Me.InitializeComponent
End Sub
#Region "StiReport Designer generated code - do not modify"
Public OutputFieldSetName As System.String
Public ReportLayoutName As System.String
Public QueryCriteriaName As System.String
Public FieldList As System.String
Public QueryCriteriaSQL As System.String
Public ReportOptions As System.String
Public Page1 As Stimulsoft.Report.Components.StiPage
Public Container1 As Stimulsoft.Report.Components.StiContainer
Public Text1 As Stimulsoft.Report.Components.StiText
Public Overrides Sub SaveState(ByVal stateName As System.String)
MyBase.SaveState(stateName)
Me.States.Push(stateName, Me, "ReportName", Me.ReportName)
Me.States.Push(stateName, Me, "OutputFieldSetName", Me.OutputFieldSetName)
Me.States.Push(stateName, Me, "ReportLayoutName", Me.ReportLayoutName)
Me.States.Push(stateName, Me, "QueryCriteriaName", Me.QueryCriteriaName)
Me.States.Push(stateName, Me, "FieldList", Me.FieldList)
Me.States.Push(stateName, Me, "QueryCriteriaSQL", Me.QueryCriteriaSQL)
Me.States.Push(stateName, Me, "ReportOptions", Me.ReportOptions)
End Sub
Public Overrides Sub RestoreState(ByVal stateName As System.String)
MyBase.RestoreState(stateName)
Me.ReportName = CType(Me.States.Pop(stateName, Me, "ReportName"),System.String)
Me.OutputFieldSetName = CType(Me.States.Pop(stateName, Me, "OutputFieldSetName"),System.String)
Me.ReportLayoutName = CType(Me.States.Pop(stateName, Me, "ReportLayoutName"),System.String)
Me.QueryCriteriaName = CType(Me.States.Pop(stateName, Me, "QueryCriteriaName"),System.String)
Me.FieldList = CType(Me.States.Pop(stateName, Me, "FieldList"),System.String)
Me.QueryCriteriaSQL = CType(Me.States.Pop(stateName, Me, "QueryCriteriaSQL"),System.String)
Me.ReportOptions = CType(Me.States.Pop(stateName, Me, "ReportOptions"),System.String)
End Sub
Public Sub Text1__GetValue(ByVal sender As Object, ByVal e As Stimulsoft.Report.Events.StiGetValueEventArgs)
e.Value = "Testing of master report"
End Sub
Public Sub InitializeComponent()
Me.NeedsCompiling = false
'Variables init
Me.ReportName = ""
Me.OutputFieldSetName = ""
Me.ReportLayoutName = ""
Me.QueryCriteriaName = ""
Me.FieldList = ""
Me.QueryCriteriaSQL = ""
Me.ReportOptions = ""
Me.ReferencedAssemblies = New System.String() {"System.Dll", "System.Drawing.Dll", "System.Windows.Forms.Dll", "System.Data.Dll", "System.Xml.Dll", "Stimulsoft.Controls.Dll", "Stimulsoft.Base.Dll", "Stimulsoft.Report.Dll"}
Me.ReportAlias = "Report"
'
'ReportChanged
'
Me.ReportChanged = New Date(2007, 2, 23, 2, 50, 43, 78)
'
'ReportCreated
'
Me.ReportCreated = New Date(2006, 10, 9, 19, 1, 13, 0)
Me.ReportName = "Report"
Me.ReportUnit = Stimulsoft.Report.StiReportUnitType.Inches
Me.ReportVersion = "1.60"
Me.ScriptLanguage = Stimulsoft.Report.StiReportLanguageType.VB
'
'Page1
'
Me.Page1 = New Stimulsoft.Report.Components.StiPage
Me.Page1.Name = "Page1"
Me.Page1.PageHeight = 11.69
Me.Page1.PageWidth = 8.27
Me.Page1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 2, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.Page1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
'
'Container1
'
Me.Container1 = New Stimulsoft.Report.Components.StiContainer
Me.Container1.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(0, 0, 7.5, 1.2)
Me.Container1.Name = "Container1"
Me.Container1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.Container1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
'
'Text1
'
Me.Text1 = New Stimulsoft.Report.Components.StiText
Me.Text1.ClientRectangle = New Stimulsoft.Base.Drawing.RectangleD(1.8, 0.3, 3.8, 0.4)
Me.Text1.Name = "Text1"
AddHandler Me.Text1.GetValue, AddressOf Me.Text1__GetValue
Me.Text1.Border = New Stimulsoft.Base.Drawing.StiBorder(Stimulsoft.Base.Drawing.StiBorderSides.None, System.Drawing.Color.Black, 1, Stimulsoft.Base.Drawing.StiPenStyle.Solid, false, 4, New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Black))
Me.Text1.Brush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.Transparent)
Me.Text1.Font = New System.Drawing.Font("Arial", 26!)
Me.Text1.Margins = New Stimulsoft.Report.Components.StiMargins(0, 0, 0, 0)
Me.Text1.TextBrush = New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.IndianRed)
Me.Text1.TextFormat = New Stimulsoft.Report.Components.TextFormats.StiGeneralFormatService
Me.Text1.TextOptions = New Stimulsoft.Base.Drawing.StiTextOptions(false, false, false, 0!, System.Drawing.Text.HotkeyPrefix.None, System.Drawing.StringTrimming.None)
Me.Page1.Margins = New Stimulsoft.Report.Components.StiMargins(0.39, 0.39, 0.39, 0.39)
Me.Page1.ReportUnit = Nothing
Me.Page1.Watermark = New Stimulsoft.Report.Components.StiWatermark(New Stimulsoft.Base.Drawing.StiSolidBrush(System.Drawing.Color.FromArgb(50, 0, 0, 0)), "", 45!, New System.Drawing.Font("Arial", 100!), false)
Me.Page1.Page = Page1
Me.Page1.Report = Me
Me.Container1.Page = Page1
Me.Container1.Parent = Page1
Me.Text1.Page = Page1
Me.Text1.Parent = Container1
'
'Add to Container1.Components
'
Me.Container1.Components.Clear
Me.Container1.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {Text1})
'
'Add to Page1.Components
'
Me.Page1.Components.Clear
Me.Page1.Components.AddRange(New Stimulsoft.Report.Components.StiComponent() {Container1})
'
'Add to Pages
'
Me.Pages.Clear
Me.Pages.AddRange(New Stimulsoft.Report.Components.StiPage() {Page1})
End Sub
#End Region 'StiReport Designer generated code - do not modify
End Class
End Namespace
Select Multiple tables in Report Wizard
No reply yet. kindly suggest me the solution to this problem.. my prject deadline is approaching.