REFERENCIAR UM OBJETO...
Boa tarde a Todos....Tenho essa Seguinte função
Public Sub GeraRelatorioJunto(Optional ByVal Campos As String = Nothing, Optional ByVal Condicao As String = Nothing)
Dim cr As New Relatorio
cr.Load([Ô]D:\Automacao\Caixa\Caixa\Caixa\Relatorio.rpt[Ô])
cr.SetDataSource(GeraConsuta(Campos, Condicao).Tables(0))
frmRelatorios.MdiParent = frmPrincipal
frmRelatorios.Show()
End Sub
Onde eu chamo essa Função por esse Metodo:
ClsGeraRelatorio.GeraRelatorioJunto([Ô]LINHA[Ô], [Ô] WHERE 1 = 1 ORDER BY SEQUENCIA[Ô])
O que acontece é que o GeraRelatorioJunto chama o frmRelatorios para mostar o Relatorio do Crystal, mas se eu tirar um Relatório e logo em seguinda outro Relatório, esse em seguinte nao aparece pois ja esta com o Primeiro Relatorio que chamei, tipo, a Tela frmRelatorio ja apareceu, sendo assim nao consigo mostrar 2 Relatorio diferentes ao mesmo tempo.
Teria como chamar o Objeto do Crystal várias vezes mas no Mesmo frmRelatório ? Tipo um em cima outro assim eu consigo tirar vários Relatpirios diferentes, igual usado no Crystal 4.6 de 199 e bolinha....
Grato desde já...
Public Sub GeraRelatorioJunto(Optional ByVal Campos As String = Nothing, Optional ByVal Condicao As String = Nothing)
Dim cr As New Relatorio
cr.Load([Ô]D:\Automacao\Caixa\Caixa\Caixa\Relatorio.rpt[Ô])
cr.SetDataSource(GeraConsuta(Campos, Condicao).Tables(0))
frmRelatorios.MdiParent = frmPrincipal
frmRelatorios.Show()
End Sub
Onde eu chamo essa Função por esse Metodo:
ClsGeraRelatorio.GeraRelatorioJunto([Ô]LINHA[Ô], [Ô] WHERE 1 = 1 ORDER BY SEQUENCIA[Ô])
O que acontece é que o GeraRelatorioJunto chama o frmRelatorios para mostar o Relatorio do Crystal, mas se eu tirar um Relatório e logo em seguinda outro Relatório, esse em seguinte nao aparece pois ja esta com o Primeiro Relatorio que chamei, tipo, a Tela frmRelatorio ja apareceu, sendo assim nao consigo mostrar 2 Relatorio diferentes ao mesmo tempo.
Teria como chamar o Objeto do Crystal várias vezes mas no Mesmo frmRelatório ? Tipo um em cima outro assim eu consigo tirar vários Relatpirios diferentes, igual usado no Crystal 4.6 de 199 e bolinha....
Grato desde já...
Não seria mais correto abrir um novo form para cada vez que se queira ver o relatório?
Dim cr As New Relatorio
cr.Load([Ô]D:\Automacao\Caixa\Caixa\Caixa\Relatorio.rpt[Ô])
cr.SetDataSource(GeraConsuta(Campos, Condicao).Tables(0))
dim frm as New Form = frmRelatorios
frm.MdiParent = frmPrincipal
frm.Show()
Dim cr As New Relatorio
cr.Load([Ô]D:\Automacao\Caixa\Caixa\Caixa\Relatorio.rpt[Ô])
cr.SetDataSource(GeraConsuta(Campos, Condicao).Tables(0))
dim frm as New Form = frmRelatorios
frm.MdiParent = frmPrincipal
frm.Show()
KERPLUNK.....não abre o outro Formulario apartir do Dim frm as New Form
fica mesmo na tela
fica mesmo na tela
Tenta:
dim frm as New Form = New frmRelatorios
dim frm as New Form = New frmRelatorios
KERPLUNK...achei melhor chamar o Crystal na mesma Tela desse jeito...
Dai posso Maximizar a tela para melhor Visualização...
Beleza então!
Valews...
Tópico encerrado , respostas não são mais permitidas