ALIMENTAR UM SUB RELATORIO CR DO VS2008

 Tópico anterior Próximo tópico Novo tópico

ALIMENTAR UM SUB RELATORIO CR DO VS2008

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#343374 - 31/05/2010 12:23:18

NICKOSOFT
SANTO ANDRE
Cadast. em:Maio/2009


pessoal, é o seguinte, tenho um relatorio q esta aparecendo os dados das empresas certinho, so q abaixo de cada empresa tem o sub relatorio dos socios q fazem parte da mesma, e nao sei como carregar esse relatorio corretamente com os dados, na verdade esta ficndo em branco nao to conseguindo nada de informacoes neles....entre as duas tabelas existe o codigo da empresa q faz a relacao entre a empresa e os socios o codigo q tenho no form onde tem o crystel report view é esse
nunca alimentei um sub relatorio entao to totalmente perdido

Citação:
  Private Sub frmRelatorioEmpresas_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        PreviewRelClientes(CarregarListaClientes(StrRelatorio))
    End Sub
    Private Sub PreviewRelClientes(ByVal oTable As DataTable)
        '
        'visualizar o relatório "rptCustomer.rpt" utilizando a função CarregarListaClientes()
        '
        Try

            '1 passo: definindo o relatório a ser visualizado (ReportPath)
            Dim crReportDocument As New Empresas

            '2 passo: definindo o DataSource do relatório
            crReportDocument.SetDataSource(oTable)

            '3 passo: visualizando o relatório...
            CRV1.DisplayGroupTree = False
            CRV1.ReportSource = crReportDocument

        Catch ex As Exception
            MsgBox(ex.Message)

        End Try

    End Sub

    Public Function CarregarListaClientes(ByVal strCountryName As String) As DataTable

        'definindo a string de conexão do banco de dados
        'Dim strConexao As String = _
        'ConfigurationManager.ConnectionStrings("SQLServerCompact").ToString
        Dim strConexao As String = "Data Source=" & My.Application.Info.DirectoryPath & "\dados.sdf"
        Dim oConn As New SqlCeConnection(strConexao)

        Dim strSQL As New StringBuilder
        Dim oTable As New DataTable()
        Dim oCmd As SqlCeCommand = Nothing

        Try

            'abrindo conexão com o banco de dados.
            oConn.Open()

            strSQL.Append(StrRelatorio)
            'definindo os parâmetros do SqlCommand
            oCmd = New SqlCeCommand(strSQL.ToString, oConn)
            oCmd.CommandType = CommandType.Text
            'oCmd.Parameters.Add(New  _
            'SqlCeParameter("@CountryName", SqlDbType.NVarChar)).Value = strCountryName

            'carregando os dados do banco de dados
            Dim oDataReader As SqlCeDataReader = _
            oCmd.ExecuteReader(CommandBehavior.CloseConnection)

            'carregar o DataTable com base no DataReader
            oTable.Load(oDataReader)

        Catch ex As Exception
            MsgBox(ex.Message)

        Finally

            'liberando os objetos
            oConn.Dispose()
            oConn = Nothing

        End Try

        Return oTable

    End Function




#344016 - 05/06/2010 20:07:21

NICKOSOFT
SANTO ANDRE
Cadast. em:Maio/2009


ja fiz, agora ficou uma duvida enorme, pq o banco e os relatorios tem q estar no mesmo caminho q eu projetei na maquina cliente pra rodar sem problemas, se muda o caminho, pede senha qnd abre o form do relatorio



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por NICKOSOFT em 26/01/2015 20:41:12