[vb6 + cr9] settare un parametro da codice

[krico]

Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Report
Report.SetReportVariableValue("ladata", date) = Now
CRViewer91.ViewReport
Screen.MousePointer = vbDefault


cosa sbaglio in riferimento a date. l'errore restituito è : imposibile assegnare un valore alla costante

[stefano3]

Non ho mai usato cr9 ma in genere per settare dei valori devi usare text e non label.
ciao

[krico]

stefano scusami... tradotto per me che sono ignorante, cosa sbaglio e dove

[stefano3]

se ho ben capito stai cercando di assegnare un valore a un controllo di tipo label dinamicamente.
diversamente dai form i report non ti permettono di farlo di modificare le costanti in fase di esecuzione.
sostituisci il controllo con uno di tipo text
(spero di aver capito il tuo problema)
ciao

[stefano3]

se ancora non va prova con
Report.SetReportVariableValue("{ladata}", date) = Now

[krico]

il prob è questo:

ho inserito un campo parametro nel report. se avvio il report sotto crystal prima della visualizzazione mi richiede con una finestra di dialogo il valore per il parametro e l'esecuzione è corretta.

quando avvio il report da codice vb questa finestra viene bypassata e di conseguenza non mi fa la select in riferimento a tale parametro.

allora ho pensato di passare il valore prima che il report fosse visualizzato, nel modo in cui ho scritto sopra, ma puntuale scatta l'errore.

ps: se c'è un altro metodo non ho problemi a cancellare questo parametro dal report per usare altro.

vorrei in definitiva fare una select in cui il campo "data" della table sia = data passata da codice.

[krico]

l'errore preciso è:
errore di compilazione
assegnazione alla costante non ammessa

[ladyBlu]

Originariamente inviato da krico
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Report
Report.SetReportVariableValue("ladata", date) = Now
CRViewer91.ViewReport
Screen.MousePointer = vbDefault


cosa sbaglio in riferimento a date. l'errore restituito è : imposibile assegnare un valore alla costante

Per settare via codice i campi Parametro di un report devi utilizzare l'insieme Parameters del report stesso.
Solitamente io creo un'istanza al form che contiene il CrystalReportViewer e un'istanza al report che devo stampare.
Nel mio esempio frmMostraAnteprima è il form contenente il CrystalReportViewer e una variabile pubblica di tipo Report (Public rpReport), e crReport è il report.
Ho utilizzato questo codice da un form e tutto sta nell'evento click di un bottone.
Ecco il codice:

Private Sub cmdStampa_Click()
   Dim crIstReport As New crReport
   Dim mioParamDefs As CRAXDRT.ParameterFieldDefinitions
   Dim mioParamDef As CRAXDRT.ParameterFieldDefinition

   Set mioParamDefs = crIstReport.ParameterFields
   'questo è il parametro da settare            
   Set mioParamDef = mioParamDefs(1) 
   mioParamDef.SetCurrentValue (Now)
            
   Dim frForm As New frmMostraAnteprima
   With frForm
        Set .rpReport = crIstReport
        Set crIstReport = Nothing
                
        .crViewer.ReportSource = .rpReport
        .crViewer.ViewReport
                
        .Show 1
   End With
   Set frForm = Nothing
End Sub

spero sia tutto chiaro

[krico]

le modifiche che apportavo al file rpt non si riperquaotevano sul dsr
di conseguenza non c'era alcun parametro. inserendolo nel dsr è tutto ok.

grazie

[ladyBlu]

Originariamente inviato da krico
le modifiche che apportavo al file rpt non si riperquaotevano sul dsr
di conseguenza non c'era alcun parametro. inserendolo nel dsr è tutto ok.

grazie

quindi funziona? :master: