Salve a tutti. Con VB6, Ho sempre usato l'ogetto Datareport incluso, per generare qualsiasi report.
dovendo stavolta generare report più complessi, ho cominciato ad utilizzare Crystal 2008 Ver 12
Il problema fondamentale non stato aprire il report e passare e filtrare dati del db;
Dim crapp As New CRAXDRT.Application
Dim Report As CRAXDRT.Report
Set crapp = New CRAXDRT.Application
Set Report = crapp.OpenReport(App.Path & "\Reports\Bolla.rpt")
Frm_Crystal.Height = Screen.Height
Frm_Crystal.Width = Screen.Width
CRViewer1.Visible = True
CRViewer1.Height = Screen.Height - 525
CRViewer1.Width = Screen.Width - 1635
Left = (Screen.Width - Width) / 2 ' Centra il form orizzontalmente.
Top = (Screen.Height - Height) / 2 ' Centra il form verticalmente.
'filtro per
Report.RecordSelectionFormula = "{FAT_RIGHE.N_FAT} = 1"
ma più semplicemente passare dati tipo n_fattura , data o informazioni del cliente su una label di intestazione pagina del report crystal
Provato con:
Report.ParameterFields.GetItemByName("nomelabel_cr ystal").AddCurrentValue ("1")
o anche
Report.ParameterFields(1).AddCurrentValue("nomelab el_crystal").Text = "1"
ma nulla da fate
qualcuno sa indicarmi dove sbaglio??
Grazie per l'aiuto.
Marco
Ciao