Cr .net Vs2005 - Perda Filtro Ao Mudar PÁgina

[Ernani Torquato]

OLÁ A TODOS, ESTOU COMEÇANDO EM CR E .NET MAS VAI AI UMA DÚVIDA E AGRADEÇO DESDE JÁ A AJUDA.

FIZ UM RELATÓRIO COM CR DO VS 2005, ONDE MONTO A SQL DE ACORDO COM A OPÇÃO DE UM RADIOLISTBOX DO WEBFORM, ONDE O CR AO SER CHAMADO MOSTRA NA TELA A PRIMEIRA PÁGINA COM OS DADOS FILTRADOS PORÉM SE O RESULTADO TIVER MAIS DE UMA PÁGINA E FOR MUDADA A PRIMEIRA PÁGINA PARA PRÓXIMA PÁGINA PERCO O FILTRO E APARECE TODAS AS INFORMAÇÕES DA TABELA.

ABAIXO SEGUE O CÓDIGO QUE USEI, TEM UMA OPÇÃO NO CRVIEWER "REUSE PARAMETER VALUE ..." QUE JÁ TENTEI COM ELA HABILITADA OU DESABILITADA E NÃO DEU CERTO.

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

Dim sSql As String

Me.MultiView1.ActiveViewIndex = 1

sSql = "SELECT a.nu_chamado, a.dthr_chamado, a.usuarioatendente, a.usuarioatendentepend, a.dthr_pendencia, a.pendencia_sn, " & _

"a.codocorrencia1, o.descricao, c.nome_razao FROM atendimentos a, cadastro c, atendimentos_ocorr o where "

'FILTRA STATUS DA PENDENCIA

If Me.RadioButtonList1.SelectedValue <> "T" Then

sSql &= " a.pendencia_sn = '" & Me.RadioButtonList1.SelectedValue & "' AND "

End If

sSql &= " c.ordem = a.ordemcriador AND a.codocorrencia1 = o.codigo"

Me.SqlDataSource1.SelectCommand = sSql

Me.CrystalReportSource1.DataBind()

End Sub

[Ernani Torquato]

PROBLEMA RESOLVIDO, AS FORMULAS ACIMA DEVEM IR NO:

Protected Sub CrystalReportViewer1_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Init

E DENTRO DA PROPRIEDADE DO BOTÃO PASSEI OS VALORES DO FORM POR SESSÃO::

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

'PASSANDO OS PARAMETROS POR SESSÃO PARA O REPORTVIEW

Session("pendencia_sn") = Me.RadioButtonList1.SelectedValue

Response.Redirect("relatorio.aspx")

End Sub

Editado Junho 18, 2007 por Ernani Torquato