[Visual Basic] Private Sub frmcrreporting_Load( _
ByVal sender As Object, _
ByVal e As EventArgs _
) Handles _
MyBase.Load
[Visual Basic] Private Sub frmcrreporting_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Cursor = Cursors.WaitCursor
Application.DoEvents()
rptfilename = dms.Get_RptDatei(Me.auswertungnr)
Dim cr As New ReportDocument
cr.Load(rptfilename)
If Me.StandardAuswertung = True Then
Try
Dim crformulas As CrystalDecisions.CrystalReports.Engine.FormulaFieldDefinitions
crformulas = cr.DataDefinition.FormulaFields
If Me.printparam Then
Dim i As Integer
Dim s As String = ""
For i = 1 To Me.auswertung.ParamCollection.Count
If s <> "" Then s = s + "|"
s = s + Me.auswertung.ParamCollection.Item(i).ToString
Next
Try
crformulas.Item("Param1").Text = "'" & s & "'"
Catch ex As Exception
End Try
End If
Try
crformulas.Item("Titel1").Text = "'" & Me.auswertung.TitelZeile1 & "'"
Catch ex As Exception
End Try
Try
crformulas.Item("Titel2").Text = "'" & Me.auswertung.TitelZeile2 & "'"
Catch ex As Exception
End Try
Catch
End Try
'Dim myTextObjectOnReport As CrystalDecisions.CrystalReports.Engine.TextObject
'Try
' myTextObjectOnReport = CType(cr.ReportDefinition.ReportObjects.Item("txtheader11"), CrystalDecisions.CrystalReports.Engine.TextObject)
' myTextObjectOnReport.Text = Me.auswertung.TitelZeile1
'Catch
'End Try
'Try
' myTextObjectOnReport = CType(cr.ReportDefinition.ReportObjects.Item("txtheader12"), CrystalDecisions.CrystalReports.Engine.TextObject)
' myTextObjectOnReport.Text = Me.auswertung.TitelZeile2
'Catch
'End Try
'Try
' myTextObjectOnReport = CType(cr.ReportDefinition.ReportObjects.Item("txtheader21"), CrystalDecisions.CrystalReports.Engine.TextObject)
' myTextObjectOnReport.Text = Me.auswertung.TitelZeile1
'Catch
'End Try
'End Try
' Try
' myTextObjectOnReport = CType(cr.ReportDefinition.ReportObjects.Item("txtheader22"), CrystalDecisions.CrystalReports.Engine.TextObject)
' myTextObjectOnReport.Text = Me.auswertung.TitelZeile2
' Catch
' End Try
' If Me.printparam Then
' Dim i As Integer
' For i = 1 To Me.auswertung.ParamCollection.Count
' Try
' myTextObjectOnReport = CType(cr.ReportDefinition.ReportObjects.Item("param1" & Trim(Str(i))), CrystalDecisions.CrystalReports.Engine.TextObject)
' myTextObjectOnReport.Text = Me.auswertung.ParamCollection.Item(i).ToString
' Catch
' End Try
' Try
' myTextObjectOnReport = CType(cr.ReportDefinition.ReportObjects.Item("param2" & Trim(Str(i))), CrystalDecisions.CrystalReports.Engine.TextObject)
' myTextObjectOnReport.Text = Me.auswertung.ParamCollection.Item(i).ToString
' Catch
' End Try
' Next
' Try
' Dim crformulas As CrystalDecisions.CrystalReports.Engine.FormulaFieldDefinitions
' 'myTextObjectOnReport = CType(cr.ReportDefinition.ReportObjects.Item("fullparam1"), CrystalDecisions.CrystalReports.Engine.TextObject)
' 'myTextObjectOnReport.Text = Me.auswertung.FullParam
' Catch ex As Exception
' End Try
' Try
' myTextObjectOnReport = CType(cr.ReportDefinition.ReportObjects.Item("fullparam2"), CrystalDecisions.CrystalReports.Engine.TextObject)
' myTextObjectOnReport.Text = Me.auswertung.FullParam
' Catch ex As Exception
' End Try
' End If
'Catch ex As Exception
'End Try
cr.SetDataSource(ds)
'20091005 - SubReport-Connection
DBConnection_SubReports(cr)
Dim paramfield As ParameterField
Dim newValue As New CrystalDecisions.Shared.ParameterDiscreteValue()
For Each paramfield In cr.ParameterFields
Try
If paramfield.Name.Substring(0, 1) = "@" Then
paramfield.CurrentValues.Clear()
newValue.Value = ""
paramfield.CurrentValues.Add(newValue)
End If
Catch
End Try
Next
CrystalReportViewer1.ShowRefreshButton = False
CrystalReportViewer1.ShowCloseButton = False
CrystalReportViewer1.ShowGroupTreeButton = False
CrystalReportViewer1.ReportSource = cr
Me.Cursor = Cursors.Default
Application.DoEvents()
Else
cr.SetDataSource(ds)
'20091005 - SubReport-Connection
DBConnection_SubReports(cr)
CrystalReportViewer1.ShowRefreshButton = False
CrystalReportViewer1.ShowCloseButton = False
CrystalReportViewer1.ShowGroupTreeButton = False
CrystalReportViewer1.ReportSource = cr
Me.Cursor = Cursors.Default
Application.DoEvents()
End If
End Sub
Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition