Passare dato a un report

sabato 10 febbraio 2007 - 13.11

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Piero76 Profilo | Newbie

10 messaggi | Data Invio: sab 10 feb 2007 - 13:11

Ciao a tutti,

scusate la domanda che sarà molto banale ma sono alle prime armi.

Ho realizzato un prg che scrive una tabella di un db con una chiave univoca per singolo utente.
A questo ounto vorrei lanciare una stampa di un report.
All'interno ci sono centinaia di righe. Come faccio a dire al report: prendi in considerazione sono quelle che hanno il campo id_numero = 100.
Cioè come passo una variabile a un campo formula di crystal?

Grazie per la collaborazione e scusate l'ignoranza.

jekisi Profilo | Senior Member

460 messaggi | Data Invio: sab 10 feb 2007 - 23:57

Ciao, è molto semplice.
Inanzi tutto, devi mette un form dove metti il Crystalreportviewer e gli assegni il Report.

Nell' evento Load del CrystalReportViewer metti:

CrystalReportViewer1.Visible = False
Try
Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo
Dim objdoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim varformula As String

varformula = "{rfatture.fattura}= " & Form14.NumeroTextBox.Text
CrystalReportViewer1.SelectionFormula = varformula
CrystalReportViewer1.RefreshReport()
objdoc.Load(Application.StartupPath & "\crystalreport3.rpt")

For Each tbCurrent In objdoc.Database.Tables
tliCurrent = tbCurrent.LogOnInfo
With tliCurrent.ConnectionInfo
'.ServerName = myDataSource
.UserID = ""
.Password = ""
.DatabaseName = "GestioneSmaltimento"
End With
tbCurrent.ApplyLogOnInfo(tliCurrent)
Next tbCurrent

CrystalReportViewer1.ReportSource = objdoc
CrystalReportViewer1.RefreshReport()
Catch ex As Exception
'MessageBox.Show("Errore FrmRptCommessa_CrystalReportViewer1_Load: " & ex.Message, "ERRORE", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
CrystalReportViewer1.Visible = True

dove rfatture.fattura sevi cambiarlo con il campo del tuo db e questo Form14.NumeroTextBox.Text
col tuo controllo.

Se hai problemi contattami pure a FabioInternational@msn.com

Distinti Saluti Fabio Messina

Piero76 Profilo | Newbie

10 messaggi | Data Invio: mar 13 feb 2007 - 12:33

Grazie per il consiglio.
E' stato di grande aiuto.

A Presto, Piero

jekisi Profilo | Senior Member

460 messaggi | Data Invio: mar 13 feb 2007 - 19:50

Cia, se hai risolto, accetta la risposta

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !