Pessoal estou com um problema em um relatorio do crystal report 8.5
Seguinte

tenho um relatorio com um subrelatorio nele sem link

queria passar parametros atraves do vb6 de data tanto para o relatorio
quanto para o subrelatorio, mas nao estou conseguindo, alguem sabe me
falar como fazer isso ? obrigado.

    crp.SelectionFormula = "{cadastro.nome} > 'C'"
    crp.ReportFileName = "c:acg     estexml     este1.rpt"
    
    'aqui teria que passar o parametro tb para o outro report e chamar o relatorio
    
    crp.Destination = crptToWindow
    crp.Action = 1

Olá Cardoso, tudo bem?

Eu tenho alguns relatórios que possuem subreport.

Para passar os parâmetros para os subreports eu crieu um função FuncConfiguraSubRelatorio aonde você passa o nome do subterport e o parâmetro que quer passar. Dessa maneira, você pode passar parâmetros para quantos subreport você quiser, é só chamar a função várias vezes.

Segue o código abaixo. Espero ter ajudado.

 

With Principal_Form.CrystalReport1
    .ReportFileName = "...REL_PRINCIPAL.RPT"
    .SubreportToChange = ""
    .Connect = GConnect
    .StoredProcParam(0) = [P1]
    FuncConfiguraSubRelatorio "SUBREPORT.rpt", [P1]      

    .WindowState = crptMaximized
    .WindowTitle = title
    .Action = 1
    .SubreportToChange = ""

End With

 

Public Sub FuncConfiguraSubRelatorio(ByVal WRelatorio As String, ByVal WParam As String)
      With Principal_Form.CrystalReport1
         .SubreportToChange = WRelatorio
         .StoredProcParam(0) = WParam
      End With
End Sub