Subreport com ParameterField - Store Procedure
07/04/2015
0
Pessoal
Com base na estrutura abaixo, como faria para implementar um subreport, onde estou utilizando store procedure, e estou pensando em utilizar o parametro ParameterFieldName, onde o parametro do report é id_Pedido_Item, alguém teria alguma dica para me passar ?
Dim rptPrint As ReportDocument = New ReportDocument
rptPrint.Load(Me.nm_Path_RPT)
rptPrint.DataSourceConnections.Clear()
For nr_Servidor As Integer = 0 To rptPrint.DataSourceConnections.Count - 1
rptPrint.DataSourceConnections(nr_Servidor).SetConnection(Me.nm_Servidor, Me.nmBancoDados, Me.nm_Usuario, Me.ds_Senha)
rptPrint.SetDatabaseLogon(Me.nm_Usuario, Me.ds_Senha, Me.nm_Servidor, Me.nmBancoDados)
Next
Dim paramFields As New ParameterFields
Dim paramField As New ParameterField
Dim discreteVal As New ParameterDiscreteValue
paramField.ParameterFieldName = "id_Pedido_Principal"
discreteVal.Value = "00001234"
paramField.CurrentValues.Add(discreteVal)
paramFields.Add(paramField)
CrystalReportViewer1.ParameterFieldInfo = paramFields
CrystalReportViewer1.ReportSource = rptPrint
Com base na estrutura abaixo, como faria para implementar um subreport, onde estou utilizando store procedure, e estou pensando em utilizar o parametro ParameterFieldName, onde o parametro do report é id_Pedido_Item, alguém teria alguma dica para me passar ?
Dim rptPrint As ReportDocument = New ReportDocument
rptPrint.Load(Me.nm_Path_RPT)
rptPrint.DataSourceConnections.Clear()
For nr_Servidor As Integer = 0 To rptPrint.DataSourceConnections.Count - 1
rptPrint.DataSourceConnections(nr_Servidor).SetConnection(Me.nm_Servidor, Me.nmBancoDados, Me.nm_Usuario, Me.ds_Senha)
rptPrint.SetDatabaseLogon(Me.nm_Usuario, Me.ds_Senha, Me.nm_Servidor, Me.nmBancoDados)
Next
Dim paramFields As New ParameterFields
Dim paramField As New ParameterField
Dim discreteVal As New ParameterDiscreteValue
paramField.ParameterFieldName = "id_Pedido_Principal"
discreteVal.Value = "00001234"
paramField.CurrentValues.Add(discreteVal)
paramFields.Add(paramField)
CrystalReportViewer1.ParameterFieldInfo = paramFields
CrystalReportViewer1.ReportSource = rptPrint
Controlesis Ltda
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)