[VB.Net]Variabele doorgeven aan Crystal reports

[Paladin]

Beste Mede Tweakers.

Ik ben bezig met wat rapporten in crystal reports, maar wil graag dat ik een variable uit vb.net door kan geven aan crystal zodat precies die data met een bepaald ID nr geopend wordt.

Ik heb al de msdn files redelijk door gespit enz maar het blijft mij redelijk onduidelijk hoe ik dit moet doen.

Kan iemand hier helpen.
Alvast bedankt

[P_de_B]

Aangezien dit op nogal verschillende manier kan, kun je het stukje code waarin je het rapport instantieert een aanroept posten?

[Paladin]

das nou juist het probleem ik heb het tot nu toe alleen via de grafische manier gedaan, ik heb het code technisch geprobeerd maar kreeg ik dus niet voor elkaar. Als iemand een stukje code weet waar dit staat ben ik daar ook al blij mee.

[Riegstar]

Je kan een Crystal Report rapportje toevoegen als een Embedded Resource (oid) in VS, dan genereerd VS daar een klasse bestand voor. (in VB.NET een .vb en in C# een .cs)
En als je in een rapportje Parameters hebt gedefineerd dan heeft zijn klasse ook dezelfde Parameters.

Zoek anders op deze pagina.

[R.A.]

Ik doe het altijd op deze manier:

code:

    Dim crReportDocument As CrystalReport1
    Dim crParameterFieldDefinitions As ParameterFieldDefinitions
    Dim crParameterFieldDefinition As ParameterFieldDefinition
    Dim crParameterValues As ParameterValues
    Dim crParameterDiscreteValue As ParameterDiscreteValue


        crReportDocument = New CrystalReport1

        ''Get the collection of parameters from the report
        crParameterFieldDefinitions = crReportDocument.DataDefinition.ParameterFields
        ''Access the specified parameter from the collection
        crParameterFieldDefinition = crParameterFieldDefinitions.Item("Parameter")

        ''Get the current values from the parameter field.  At this point
        ''there are zero values set.
        crParameterValues = crParameterFieldDefinition.CurrentValues

        ''Set the current values for the parameter field
        crParameterDiscreteValue = New ParameterDiscreteValue
        crParameterDiscreteValue.Value = "je input" '1st current value

        ''Add the first current value for the parameter field
        crParameterValues.Add(crParameterDiscreteValue)

        ''All current parameter values must be applied for the parameter field.
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

Hoop dat het zo werkt

[Verwijderd]

Ik heb eerst eengrafisch model gemaakt van hoe mijn rapport eruit moest komen te zien en daarna heb ik een SQL statement gemaakt die een dataset initialiseerd en dan geef ik voor het rapport deze dataset op als recordsource, werkt perfect.

[Riegstar]

Ik ook zoiets, maar dan in C#.

code:

public void updateForm()
{
    doc = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
    doc.Load(rapportNaam);
    doc.DataDefinition.ParameterFields.Reset();
    AddParameter("@Parameter1", param1); //Naam, waarde
    crvRapport.ReportSource = null;
    crvRapport.ReportSource = doc;
}

private void AddParameter(string Parameter, Object Value)
{
    CrystalDecisions.Shared.ParameterValues paramValues = new CrystalDecisions.Shared.ParameterValues ();
    CrystalDecisions.Shared.ParameterDiscreteValue paramValue = new CrystalDecisions.Shared.ParameterDiscreteValue ();
    
    // Set the discrete value and pass it to the parameter.
    paramValue.Value = Value;
    paramValues.Add (paramValue);
    doc.DataDefinition.ParameterFields[Parameter].ApplyCurrentValues (paramValues);
}

[Paladin]

Mensen ik dank u zeer voor de hulp, deze heeft samen met het gene wat ik gevonden heb in de help van micrososft geresulteerd dat ik de variabelen door kon geven en dat de overzichten netjes worden weergegeven.

Mijn dank is groot

[R.A.]

En hoe doe je het nu dan als ik vragen mag?

[Paladin]

Sorry ff vergeten

code:

        Dim paramFields As New CrystalDecisions.Shared.ParameterFields
        Dim paramField As New CrystalDecisions.Shared.ParameterField
        Dim discreteVal As New CrystalDecisions.Shared.ParameterDiscreteValue

        paramField.ParameterFieldName = "volgnr"

        discreteVal.Value = afdrukKlachtNummer
        paramField.CurrentValues.Add(discreteVal)

        paramFields.Add(paramField)

        CrystalReportViewer1.ParameterFieldInfo = paramFields

        CrystalReportViewer1().ReportSource = "\\Dc01\apps\Klachtenbeheer\Rapporten\klachten_klantbrief.rpt"

Had rapport al gemaakt en tevens een vieuwer in het scherm dus heb het rapport geopend en de parameters er an toegekend via een globale var die uit een ander scherm komt works like a charm

[Verwijderd]

ik maak gebruik van onderstaande C# code:


krijg de melding : Load report failed. op doc.Load("cr");

wat doe ik fout?

Hetgeen ik dus wil doen is een parameter aan een report meegeven.

code:

private void Page_Load(object sender, System.EventArgs e)
        {
            // Put user code to initialize the page here
            CrystalReport1 cr = new CrystalReport1();       
            crv.ReportSource = cr;
            doc = cr;
            updateForm();
            crv.Visible = true;
            

        }

public void updateForm()
    {
                CrystalReport1 cr = new CrystalReport1();
    doc = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
    doc.Load("cr");
    doc.DataDefinition.ParameterFields.Reset();
    AddParameter("@hoofdgroepomschrijving","DKW"); //Naam,waarde
                crv.ReportSource = null;
    crv.ReportSource = doc;
    }

private void AddParameter(string Parameter, Object Value)
    {
    CrystalDecisions.Shared.ParameterValues paramValues = new    
                CrystalDecisions.Shared.ParameterValues ();
    CrystalDecisions.Shared.ParameterDiscreteValue paramValue = new 
                CrystalDecisions.Shared.ParameterDiscreteValue ();
    
    // Set the discrete value and pass it to the parameter.
    paramValue.Value = Value;
    paramValues.Add (paramValue);
    doc.DataDefinition.ParameterFields[Parameter].ApplyCurrentValues 
                (paramValues);
    }

[ Voor 17% gewijzigd door Verwijderd op 02-06-2004 10:22 ]

[Riegstar]

code:

doc.Load("cr") ??

Waarom?

[Verwijderd]

Riegstar schreef op 02 juni 2004 @ 10:47:

code:

doc.Load("cr") ??

Waarom?

Kan ik volgens jou

code:

doc = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
    doc.Load("cr");
    doc.DataDefinition.ParameterFields.Reset();

geheel weglaten dan?

wat moet ik dan i.p.v.

code:

doc.DataDefinition.ParameterFields[Parameter].ApplyCurrentValues 
                (paramValues);

gaan gebruiken?

[ Voor 22% gewijzigd door Verwijderd op 02-06-2004 10:55 ]

[Riegstar]

Verwijderd schreef op 02 juni 2004 @ 10:49:
[...]


Kan ik volgens jou

code:

doc = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
    doc.Load("cr");
    doc.DataDefinition.ParameterFields.Reset();

geheel weglaten dan?

Wanneer je het Rapportje als een Embedded Resource bij je project heb ingevoegd kan je gewoon bij de Parameter propertie komen van dat Rapportje.

code:

CrystalReport1 cr = new CrystalReport1();
cr.Parameter_hoofdgroepomschrijving =

[Verwijderd]

Riegstar schreef op 02 juni 2004 @ 11:09:
[...]


Wanneer je het Rapportje als een Embedded Resource bij je project heb ingevoegd kan je gewoon bij de Parameter propertie komen van dat Rapportje.

code:

CrystalReport1 cr = new CrystalReport1();
cr.Parameter_hoofdgroepomschrijving =

mmmm bovenstaande krijg ik niet voor elkaar.
Heb nu:

code:

CrystalReport1 cr = new CrystalReport1();           

CrystalDecisions.Shared.ParameterField ParameterField1 = new CrystalDecisions.Shared.ParameterField();
CrystalDecisions.Shared.ParameterFields ParameterFields = new CrystalDecisions.Shared.ParameterFields();
CrystalDecisions.Shared.ParameterDiscreteValue ParamterDescreteValue1 = new CrystalDecisions.Shared.ParameterDiscreteValue();
ParameterField1.ParameterFieldName = "id";
ParamterDescreteValue1.Value = "1";
ParameterField1.CurrentValues.Add(ParamterDescreteValue1);
ParameterFields.Add(ParameterField1);
crv.ParameterFieldInfo = ParameterFields;
crv.ReportSource = cr;
crv.Visible = true;

maar krijg nog steeds alle regels te zien.
i.p.v. de regel met id = 1