Imports CrystalDecisions.Shared

Public Klientkey As Integer
    Public ds As dsKlientDetails
 
 
    Friend Sub erstellen()
        Dim rep As New rptKlient
        Dim myValue As ParameterDiscreteValue = New ParameterDiscreteValue
        Dim myParams As ParameterField = New ParameterField
 
        myValue.Value = KlientKey
        myParams.ParameterFieldName = "KlientKey"
        myParams.CurrentValues.Add(myValue)
 
        Crystalviewer1.ParameterFieldInfo = New ParameterFields
        Crystalviewer1.ParameterFieldInfo.Add(myParams)
 
        rep.SetDataSource(ds)
        Crystalviewer1.ReportSource = rep
 
 
    End Sub