Postada em 01/10/2011 19:16 hs
Boa noite galera, estou com um problemão ...
Seguinte, tenho um relatorio no crystal reports 8 que vai necessitar de um sub relatorio.
Eu uso arquivo TTX para passar os dados para o relatorio e esta funcionando perfeitamente (Usando só um arquivo TTx).
O problema é quando vou usar um outro TTX (entao eu estaria usando 2 TTX no relatorio) no sub relatorio, não esta funcionando ... dá o erro de INVALID TABLE NUMBER.
Então tenho : um arquivo crystal RPTANAMENESE.RPT e dois arquivos TTX (RPTANAMNESE1.TTX - usado no relat. PRINCIPAL e RPTANAMNESE_MEDICAMENTO.TTX - usado no SUB RELATORIO)
No programa estou fazendo ....
With Crystal1
.ReportFileName = App.Path & "RPTANAMNESE.RPT"
.SetTablePrivateData 0, 3, RsRelatorio
'.RetrieveDataFiles
'.DataFiles(0) = App.Path & "RPTANAMENESTE_1"
.Formulas(0) = "vEtilismo=" & "'" & vEtilismo & "'"
.Formulas(1) = "vTabagismo=" & "'" & vTabagismo & "'"
'+++++++++ ATE AQUI TA CERTO, O PROBLEMA É AGORA NO SUBREPORT
'--- SubReport
.SubreportToChange = "MEDICAMENTO.RPT"
.DataFiles(0) = App.Path & "RPTANAMENESTE_MEDICAMENTO.TTX"
'.SetTablePrivateData 0, 3, RsRelatorioMed
'.RetrieveDataFiles
.WindowState = crptMaximized
.ReportTitle = "Anamnese SEMPRE"
.WindowTitle = "Anamnese SEMPRE"
.Destination = crptToWindow
.WindowShowPrintSetupBtn = True
.RetrieveDataFiles
.Action = 0
.Reset
End With
Se alguem puder me ajudar , eu agradeco.
Obrigado
Marcelo
|
