COMO ATUALIZAR CRYSTAL REPORT 8.5 ?
Ola pessoal estou com um problema, em atualizar o CR 8.5
Nao consigo atualizar os dados a serem impressos no Crystal Reports 8.5...
como faço ?
[Ô]estou usando a dll crviewer[Ô]
Nao consigo atualizar os dados a serem impressos no Crystal Reports 8.5...
como faço ?
[Ô]estou usando a dll crviewer[Ô]
Dim Report As New CrystalReport1
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
CRViewer1.EnableExportButton = True
End Sub
Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub
O comando seria mais ou menos como o abaixo
precisa apenas costumizar a parte de refressh da datasource
Como eu não uso mais o vb6 eu posso te ajudar mais que isso, mas este é o caminho das pedras.
Quando clicar no botão refresh do viewer, ele vai executar a ação abaixo.
precisa apenas costumizar a parte de refressh da datasource
Como eu não uso mais o vb6 eu posso te ajudar mais que isso, mas este é o caminho das pedras.
Quando clicar no botão refresh do viewer, ele vai executar a ação abaixo.
Private Sub CRViewer1_RefreshButtonClicked(UseDefault As Boolean)
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
CRViewer1.EnableExportButton = True
End Sub
Screen.MousePointer = vbHourglass
Report.Database.SetDataSource Conexao.Properties.Item([Ô]Data Source[Ô]).Value
Report.Database.Tables(1).Location = Conexao.Properties.Item([Ô]Data Source[Ô]).Value
Report.DiscardSavedData
Report.Database.Verify
Report.TxtEmpresa.SetText ([Ô]NOME DA EMPRESA[Ô])
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
CRViewer1.Zoom (100)
Screen.MousePointer = vbDefault
Report.Database.SetDataSource Conexao.Properties.Item([Ô]Data Source[Ô]).Value
Report.Database.Tables(1).Location = Conexao.Properties.Item([Ô]Data Source[Ô]).Value
Report.DiscardSavedData
Report.Database.Verify
Report.TxtEmpresa.SetText ([Ô]NOME DA EMPRESA[Ô])
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
CRViewer1.Zoom (100)
Screen.MousePointer = vbDefault
o primeiro funcionou mas quero que atualiza logo quando eu abrir o form
nenhum funfou o segundo
nenhum funfou o segundo
Tópico encerrado , respostas não são mais permitidas