Inquiridor
Microsoft Report

Pergunta
-
Ola pessoal...
Estou aqui com umas duvidas com o Microsoft Report Viewer, eu gostava de fazer o mesmo com ele do que faço com o Crystal Reports, mas nao encontrei nda na internet para me ajudar. Entao ca vai, eu tenho um formulario unico que carrega os meus formularios conforme os dados passados, esta algo deste genero:
Como podem ver os parâmetros são passados através de um array list bem como o formulário em questão... Agora a questão e se existe maneira de usar algo deste género para o microsoft reports. Ou se existe maneira de alterar o "design" do Crystal Report Viewer (Era um achado esta opção :D)Me.Text = TituloFormulario Dim cryRpt As New ReportDocument Dim crtableLogoninfos As New TableLogOnInfos Dim crtableLogoninfo As New TableLogOnInfo Dim crConnectionInfo As New ConnectionInfo Dim CrTables As Tables Dim CrTable As Table cryRpt.Load(Application.StartupPath & "\" & CaminhoRelatorio) With crConnectionInfo .ServerName = ProStocks.INI.Read(PatchINI, "BD", "SERVIDOR_BASEDADOS", "ProStocks") .DatabaseName = ProStocks.INI.Read(PatchINI, "BD", "NOME_BASEDADOS", "ProStocks") .UserID = ProStocks.INI.Read(PatchINI, "BD", "UTILIZADOR", "ProStocks") .Password = ProStocks.INI.Read(PatchINI, "BD", "PASSWORD", "ProStocks") End With CrTables = cryRpt.Database.Tables For Each CrTable In CrTables crtableLogoninfo = CrTable.LogOnInfo crtableLogoninfo.ConnectionInfo = crConnectionInfo CrTable.ApplyLogOnInfo(crtableLogoninfo) Next ' ' Parametros Relatorio ' If Parametros.Count > 0 Then Dim crParameterFieldDefinitions As ParameterFieldDefinitions Dim crParameterFieldDefinition As ParameterFieldDefinition Dim crParameterValues As New ParameterValues() Dim crParameterDiscreteValue As New ParameterDiscreteValue() For Each Parametro In Parametros crParameterValues.Clear() crParameterDiscreteValue.Value = Parametro.Valor crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields crParameterFieldDefinition = crParameterFieldDefinitions(Parametro.NomeParametro) crParameterValues = crParameterFieldDefinition.CurrentValues crParameterValues.Add(crParameterDiscreteValue) crParameterFieldDefinition.ApplyCurrentValues(crParameterValues) Next End If CrystalReportViewer1.ReportSource = cryRpt CrystalReportViewer1.Refresh()
- Movido AndreAlvesLimaModerator segunda-feira, 20 de dezembro de 2010 17:01 (De:VB.NET e Visual Basic)
Todas as Respostas
-
Daniel!
Se compreendi sua dúvida sugiro que faça assim:
ReportParameter[] ArrayNome = new ReportParameter[3]; ArrayNome[0] = new ReportParameter("Parameter1", "XXXXXXX"); ArrayNome[1] = new ReportParameter("Parameter2", "YYYYYYY"); ArrayNome[2] = new ReportParameter("Parameter3", "ZZZZZZZ"); this.reportViewer.LocalReport.SetParameters(ArrayNome); this.reportViewer.RefreshReport();
Att.
Eder Costa - LATAM Forum Support Engineer
Microsoft Corporation -
Prezado(a),
Estou migrando seu post para o fórum de Geração de Relatórios.
Por favor, das próximas vezes que tiver alguma dúvida relacionada a esse assunto, poste por lá.
Obrigado pelo apoio.
André Alves de Lima
Visite o meu site: http://www.andrealveslima.com.br
Me siga no Twitter: @andrealveslima -