ERRO CRYSTAL REPORTS

THAINE 13/04/2012 09:03:07
#399749
Bom dia..
faz dias que estou com esse erro
[Ô]Cannot find table(0)[Ô]
na hora de exibir os relatorios no crystal reports
Alguem pode me ajudar?
Desde ja agradeço
ALTAIR148 13/04/2012 09:15:37
#399750 Resposta escolhida
Bom dia,

O erro está falando que o seu dataset não tem nenhuma tabela carregada.

Veja o link abaixo tem um problema parecido com o seu.

http://social.msdn.microsoft.com/Forums/pt-BR/webgeralpt/thread/84d022ee-6380-4d2c-aecf-6c08703351d4/
THAINE 13/04/2012 09:28:29
#399753
no meu relatórios existem mais 4 sub relatórios
estou chamando eles dessa forma:
Dim cr As New crData
cr.SetDataSource(Data.Tables(0))
cr.Subreports([Ô]D0[Ô]).SetDataSource(D0.Tables(0))
cr.Subreports([Ô]D1[Ô]).SetDataSource(D1.Tables(0))
cr.Subreports([Ô]D2[Ô]).SetDataSource(D2.Tables(0))
cr.Subreports([Ô]D3[Ô]).SetDataSource(D3.Tables(0))
quando seleciono um periodo para que sejam exibidos os clientes,
ele só exibe quando há resultados em todas as consultas,
onde há resultado em apenas uma consulta, ele da esse erro
como posso resolver este problema?
ALTAIR148 13/04/2012 09:30:58
#399754
Não sei ao certo, mas acho que teria que ter um IF verificando se o dataset foi preenchido ou não.
THAINE 13/04/2012 09:47:55
#399763
e como faço isso?
teria como voce me mandar um exemplo por favor?
ALTAIR148 13/04/2012 09:56:19
#399766
Foi apenas um palpite, não sei se vai dar certo, mas tente com o código abaixo para ver.

  cr.SetDataSource(Data.Tables(0))
 If D0.Tables(0).Rows.Count > 0 Then
        cr.Subreports([Ô]D0[Ô]).SetDataSource(D0.Tables(0))
end if

 If D1.Tables(0).Rows.Count > 0 Then
        cr.Subreports([Ô]D1[Ô]).SetDataSource(D1.Tables(0))
end if

 If D2.Tables(0).Rows.Count > 0 Then
        cr.Subreports([Ô]D2[Ô]).SetDataSource(D2.Tables(0))
end if

 If D3.Tables(0).Rows.Count > 0 Then
        cr.Subreports([Ô]D3[Ô]).SetDataSource(D3.Tables(0))
end if
THAINE 13/04/2012 10:07:57
#399773
pois é eu tentei, e continuou com o mesmo erro
THAINE 13/04/2012 10:53:53
#399788
existe algum outro jeito ?
ALTAIR148 13/04/2012 12:41:55
#399802
Como que você carrega os datasets?
THAINE 13/04/2012 17:00:22
#399830
Muito obrigada pela atenção ALTAIR
era isso
If D0.Tables.Count > 0 Then
cr.Subreports([Ô]D0[Ô]).SetDataSource(D0.Tables(0))
end if

ate a próxima
Tópico encerrado , respostas não são mais permitidas
Voltar