none
Gerar Relatórios FastReport Wb com Visual Studio RRS feed

  • Pergunta

  • Olá pessoal,

    Uso o Visual Studio 2010 e estou tentando atualizar meu relatório desenvolvido em FastReport.  O engraçado é que, ao abrir a página a consulta é executada mas, quando clico no botão para executar a Query não acontece nada. E, quando clico no botão refresh do próprio componente (WebReport1) ele exibe todos os registros. O meu código segue abaixo, mas só é obedecido quando a página é aberta depois disso não.

    Private Sub PovoaRelatorio()
            Dim pSQL, pParametro As String
            pParametro = ""
    
            For Each item As ListItem In cblFiliais.Items
                If item.Selected = True Then
                    pParametro = pParametro & "   " & item.Value
                End If
            Next
    
            pParametro = Replace(Trim(pParametro), "   ", ", ")
            If Trim(pParametro) = "" Then pParametro = Session("sFilial")
    
            pSQL = " SELECT A.ID, A.CURSOID, A.FILIALID, B.CODIGO, B.NOME, " & _
                   " C.NOME AS EIXO, D.FANTASIA AS FILIAL " & _
                   " FROM CURSOSFILIAIS AS A WITH (NOLOCK) " & _
                   " INNER JOIN CURSOS AS B WITH (NOLOCK) ON B.ID = A.CURSOID " & _
                   " INNER JOIN EIXOS AS C WITH (NOLOCK) ON C.ID = B.EIXOID " & _
                   " INNER JOIN FILIAL AS D WITH (NOLOCK) ON D.ID = A.FILIALID " & _
                   " WHERE A.FILIALID IN (" & pParametro & ") "
    
            With SqlDataSource1
                .SelectCommand = pSQL
                .DataBind()
            End With
    
            WebReport1.Page.DataBind()
    
        End Sub

    Alguém tem alguma sugestão? Uso Visual Studio 2010, Linguagem VB, FastReport.Net 1.2.47 e Banco de Dados SQL Server 2017.

    Grato,

    Ilano

    quarta-feira, 9 de dezembro de 2020 14:38

Todas as Respostas