Imports CrystalDecisions.Shared
Public Class Berichte
    Inherits System.Windows.Forms.Form
 
#Region " Vom Windows Form Designer generierter Code "
 
 
    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        Try
 
 
            'If CARone.Bericht = "Schadensmeldung_KfZ" Then
 
            Dim Bericht As New Fahrzeugkontrolle
 
            Dim myvalue1 As New ParameterDiscreteValue
            Dim myparams1 As New ParameterField
            myvalue1.Value = CARone.BerichtParameter
            myparams1.ParameterFieldName = "ReportKFZ"
            myparams1.CurrentValues.Add(myvalue1)
 
            CrystalReport_Anzeige.ParameterFieldInfo = New ParameterFields
            CrystalReport_Anzeige.ParameterFieldInfo.Add(myparams1)
 
            Dim loginfo As New CrystalDecisions.Shared.TableLogOnInfo
            loginfo.ConnectionInfo.ServerName = CARone.myPath & _
              "\Datenbank\mtm-soft_Datenbank.mdb"
            Bericht.Database.Tables.Item(0).ApplyLogOnInfo(loginfo)
 
            CrystalReport_Anzeige.ReportSource = Bericht
 
            'End If
 
        Catch ex As Exception
            MsgBox("Anzeige nicht möglich!!")
        End Try
 
    End Sub