CRYSTAL REPORTS COM RECORDSET

CAIO.FR.SP 06/07/2011 12:35:23
#378588
galera preciso carregar um relatrio do crystal reports com um recordset mas nao esta dando certo.
ele sempre carrega o relatorio limpo. estou usando o crystal 9

a função que uso para gerar o relatorio é a seguinte


Private Sub Form_Load()    
    Screen.MousePointer = vbHourglass
    
    crv_etiquetas.ReportSource = rpt_etiquetas
    
    Set Rst = New ADODB.Recordset
    Rst.Open [Ô]SELECT * FROM TmpCodBar;[Ô], Conexao, adOpenKeyset, adLockReadOnly
    rpt_etiquetas.Database.SetDataSource Rst  
    
    crv_etiquetas.ViewReport
    
    Screen.MousePointer = vbDefault
End Sub
ROBIU 06/07/2011 12:46:39
#378589 Resposta escolhida
Acrescente esta linha:
rpt_etiquetas.DiscardSavedData


E Deixe o código assim:
Private Sub Form_Load()
    Screen.MousePointer = vbHourglass
    Set Rst = New ADODB.Recordset
    Rst.Open [Ô]SELECT * FROM TmpCodBar;[Ô], Conexao, adOpenKeyset, adLockReadOnly
    rpt_etiquetas.DiscardSavedData    
    rpt_etiquetas.Database.SetDataSource Rst
    
    crv_etiquetas.ReportSource = rpt_etiquetas
    crv_etiquetas.ViewReport
    Screen.MousePointer = vbDefault
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar