USUÁRIO:
SENHA:
SALVAR LOGIN ?
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
