CRYSTAL 9 CARREGAMENTO

USUARIO.EXCLUIDOS 13/04/2004 13:32:25
#20310
EM MEU PROGRAMA OS RELàTÓ“RIOS COM CRYSTAL 9, ALGUNS DESSES RELATÓ“RIOS DEMORAM + DE 1 MINUTO PARA SEREM CARREGADOS.
ALGUEM PODERIA ME AJUDAR A MELHORAR MEU CÓ“DIGO PARA O CARREGAMENTO + RàPIDO OU ME AJUDAR EM OUTRA MANEIRA DE AGILIA-LOS.
O CÓ“DIGO SEGUE ABAIXO.

OBRIGADO

WAGNER GARNIZET DA SILVA
USIGAR@TERRA.COM.BR

If data1.Value data2.Value Then
MsgBox "Data inicial maior que data final!", vbInformation, "Relatórios"
Else
Command2.Enabled = False
Dim miReport As CRAXDDRT.Report
Dim miCRApp As New CRAXDDRT.Application
Set miReport = miCRApp.OpenReport(App.Path & "\dados\compras.rpt")
With miReport
.Database.SetDataSource (App.Path & "\DADOS\usigar 2003.mdb")
.RecordSelectionFormula = "({PEDIDODECOMPRA.SOLICITADA}=#" & data1.Value & "# and {PEDIDODECOMPRA.SOLICITADA}=#" & data2.Value & "#)"
End With
With crView
.ReportSource = miReport
.ViewReport
While .IsBusy
DoEvents
Wend
.Zoom "60"
.Visible = True
miReport.Database.SetDataSource (App.Path & "\DADOS\usigar 2003.mdb")
.Refresh
miReport.Database.SetDataSource (App.Path & "\DADOS\usigar 2003.mdb")
End With
Set miCRApp = Nothing
Set miReport = Nothing
End If
End Sub
RXGOMES 15/04/2004 07:18:26
#20631 Resposta escolhida
Vc pode tenar ao invês de utilizar formula usar query, não sei se é mais rápido, mais para carregar os meus relatório é rápido

Dim Report As New CrystalReport1
Dim strRendimentoDD As String
Dim strRendimentoAC As String
Private Sub Form_Load()

Screen.MousePointer = vbHourglass

Call CalcularRendimento
Call CalcularUmidade
dteData = CDate(frmImprimirConsumo.txtData.Text)

Report.Subreport2.SubreportName = "resumo"
Report.Subreport2_RendimentoMd.SetText (strRendimentoAC)
Report.Subreport2_RendimentoDd.SetText (strRendimentoDD)
Report.Subreport2_UmidadeApE.SetText (strUmid2724)
Report.Subreport2_UmidadeAp3.SetText (strUmid2727)
Report.Subreport2_UmidadeAp2.SetText (strUmid2728)
Report.Subreport2_UmidadeAp1.SetText (strUmid2729)
Report.Subreport2_UmidadeApG.SetText (strUmidGeral)
Report.OpenSubreport("resumo").SQLQueryString = "select material, EntradaAc, ConsumoAc, ConsumoDd, as Saldo from report where data = #" & dteData & "# order by material"

Report.SQLQueryString = "select lote, material, entradaac, consumoac, consumodd, saldo from report where data = #" & dteData & "# and entradaac0 order by lote, material"

CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault

End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar