USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic.Net    (Crystal Reports)

Título da Dica:  vb6 x crystal reports 10 e/ou 11
Postada em 21/8/2006 por ~Ð@®£@Ñ            
OBS . . : apartir da versao 8 nao se usa mais a .ocx

adicione as referencias
- crystal reports viewer control
- crystal reports activex designer run time library

Dim crApp As New CRAXDRT.Application
Dim crRpt1 As New CRAXDRT.Report
Dim crRpt2 As New CRAXDRT.Report
Dim crRptRouter As New ReportSourceRouter

Set crRpt1 = crApp.OpenReport(App.Path & "relatorio1.rpt")
Set crRpt2 = crApp.OpenReport(App.Path & "relatorio2.rpt")

crRptRouter.AddReport crRpt1
crRptRouter.AddReport crRpt2

'crRpt1.RecordSelectionFormula = strFormula
' crRpt1.FormulaFields(a).Text = param(a)
'crRpt1.formulaFields.GetItemByName("cabecalho").Text = "'" & strCabecalho & "'"

crviewer1.ReportSource = crRptRouter
crviewer1.ViewReport
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página