SUBREPORT COM DATASET NO CRYSTAL

JCM0867 08/09/2015 08:49:08
#451120
Olá pessoal

Eu sempre fiz subreports no vb6 + Crystal 8.5

Agora é a primeira vez que me deparei com subreport no VB.NET + Crystal 13.0.14

Já populei as tabelas e criei o dataset com duas tabelas, uma vai para o relatório normal e outra vai para o subreport. ao link das duas tabelas aparentemente ok. Até aí tudo certo.
Tabelas: dsBoletos e dsBoletosDevido(subrelatório)

Ao imprimir ele mostra o subrelatorio vazio, ele não está puxando os dados da tabela do subreports

como fiz:

cryRpt.Load(RaizSistema + [Ô]\Reports\Boleto - [Ô] + TipoBoleto + [Ô].rpt[Ô])

[ô]Atribuindo o dataset ao crystal
[ô]Tabela Normal[ô] aqui funciona
[txt-color=#0000f0]cryRpt.Database.Tables(0).SetDataSource(dsBoletos)[/txt-color]
[ô]Tabela do subreports, aqui não funciona
[txt-color=#e80000]cryRpt.Subreports(0).SetDataSource(dsBoletosDevidos.Tables(1))[/txt-color]

[txt-color=#0000f0]CrystalReportViewer1.ReportSource = cryRpt[/txt-color]

se alguém souber onde está errado na parte em vermelho, agradeço
NICKOSOFT 08/09/2015 09:22:57
#451122 Resposta escolhida
da uma olhada

  
[ô]Instanciando/Setando Objeto ReportDocument
        oRP = New ReportDocument
        oRP.Load(Application.StartupPath & [Ô]\crpGeral.rpt[Ô], OpenReportMethod.OpenReportByTempCopy)

        [ô](Setando Primeiro do SubReport)
        oRP.Subreports.Item([Ô]crpFichaInfo.rpt[Ô]).SetDataSource(LancamentoDT)

        [ô]Setando Origem de Dados (Somente depois de setar do SubReport)
        oRP.SetDataSource(tabelaDados2)

        [ô]Exibindo Relatório
        oFrmRelatorio.CRV1.ReportSource = oRP
        oFrmRelatorio.CRV1.RefreshReport()

        oFrmRelatorio.ShowDialog()

viu o esquema, carrega o principal, aponta o sub e já define o datasource, ai seta o datasource do principal
JCM0867 08/09/2015 09:40:00
#451123
Ok,
Vou fazer uns testes aqui
NICKOSOFT 08/09/2015 19:57:45
#451144
outra forma, chamando o relatório de dentro do projeto...
  
        Dim oRP As New ReportDocument
        oRP = New crpCliente
        oRP.Subreports.Item(0).SetDataSource(ProdutoDT)
        oRP.SetDataSource(ClienteDT)
JCM0867 08/09/2015 21:18:37
#451146
NICKOSOFT
Deu certo, está mostrando corretamente o subreport.
Usei a segunda maneira
Eu já fazia isso no VB6+Access+Crystal 8.5
Não estava me achando no VBNet+SQLServer para DataSet+Crystal 13 for VS
O cliente pediu para mostrar parcelas devidas junto do Boleto corrente.

Valeu, muito obrigado.
Tópico encerrado , respostas não são mais permitidas
Voltar