Postada em 07/04/2006 15:22 hs
Não estou usando select, to usando:
Dim Report As CRAXDRT.Report Dim objCrystal As New CRAXDRT.Application
FORMULA = "{empresa.CodEmpresa} = " & dtCbEmpresa.BoundText & " " & _ "AND {requisicao.data} >= date(" & Format(txt(0), "yyyy,mm,dd") & ") " & _ "AND {requisicao.data} <= date(" & Format(txt(1), "yyyy,mm,dd") & ") "
Set Report = objCrystal.OpenReport(c:sistema ptconvenio.rpt) Report.GroupSelectionFormula = FORMULA Report.DisplayProgressDialog = True With CRViewer .ReportSource = Report 'visualiza na tela .ViewReport End With
NO CRYSTAL APARECE BEM OS TOTAIS, AO EJECUTAR ATRAVÉZ DO VB APARECE O TOTAL DE TODOS OS LANÇAMENTOS REALIZADOS, MAS SOMENTE MOSTRA OS REGISTROS LANÇADOS NO PERIODO.
|