Modificare un Report a Run Time con Crystal Report

martedì 03 febbraio 2009 - 10.57

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

lucaverdi1970 Profilo | Newbie

22 messaggi | Data Invio: mar 3 feb 2009 - 10:57

Ciao

Sto realizzando dei Report con Crystal Report.
Tutto bene fino a che utilizzo il Wizard, con cui realizzo dei Report che non posso modificare a Run Time.

Ora purtroppo è giunto il momento di modificare i Report in seguito a valori di particolari campi Testo e quindi a RunTime.

Fino ad ora ho utilizzato

File Report. rpt (Creato con un Wizard)

CrystalReportViewer (Nella Pagina Web)
CrystalReportSource (Nella Pagina Web)

618x543 13Kb

A questo punto vorrei poter cambiare a RunTime il Comando 'Select'.

Il Pulsante Bottone, visualizzato nella Maschera, dovrebbe modificare il Report in modo da visualizzare sempre 3 come risultato per tutti gli utenti (è solo un esempio di modifica a RunTime, che se funziona perfezionerò).

Ecco il Listato (Nel quale ho omesso la Stringa di Connessione)

------------------------------------------------------------------------------------
Imports System.Data
Imports System.Data.SqlClient

Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine

Partial Class Statistica1
Inherits System.Web.UI.Page

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("Button1_Click")

''''''''''''''''''''''''''''''''''''''''''''
' Modificare un Report a RunTime
''''''''''''''''''''''''''''''''''''''''''''
Dim con As New SqlConnection
Dim com As New SqlCommand
Dim adp As New SqlDataAdapter
Dim ds As New DataSet

ds.Clear()

con.ConnectionString = "..."
com.CommandText = "select UserId, 3 from Richiesta Group By UserID"
com.CommandType = CommandType.Text
com.Connection = con
adp.SelectCommand = com

Try
adp.Fill(ds)
Catch ex As Exception
MsgBox(ex.Message)
End Try

Try
Dim myreport As New ReportDocument()
myreport.Load(Server.MapPath("CrystalReport2.rpt"))

myreport.SetDataSource(ds)
CrystalReportViewer1.ReportSource = myreport
Catch ex As Exception
MsgBox(ex.Message)
End Try
''''''''''''''''''''''''''''''''''''''''''''
End Sub
End Class
------------------------------------------------------------------------------------

Il Listato viene compilato, ma mandato in esecuzione non dà alcun risultato. o meglio il Report visualizzato non cambia.

Potete aiutarmi ?

Grazie

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 !