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

 

  Dicas

  Visual Basic    (Crystal Reports)

Título da Dica:  Como alterar o template após gerar o código RDC no VB?
Postada em 6/10/2003 por ~Ð@®£@Ñ            
Refere-se a: Crystal Reports 9.0

Dica

Desenvolvendo em VB, você pode utilizar o Designer para montar o template do seu report, mas isso gera problemas do tipo como alterar o template após linkado o código?
Então eu não monto templates dentro do VB, eu os crio dentro do Crystal Reports e os carrego através de um método da classe Application, o ".OpenReport", ele devolve um objeto do tipo "Report", que eu através de um método do ActiveX consigo carregá-lo. Isso é muito mais útil, pois assim permite que você altere o report, mesmo após do código ter sido compilado e linkado.

Exemplo didático de como poder alterar os templates mesmo após linkado o código pelo vb:

Crie um projeto no vb e mande inserir o Crystal. Selecione Blank Report e o Crystal vai inserir por default um Designer e um novo form2. Delete o Designer e altere o código do form2 para o seguinte:

    Dim Report As CRAXDRT.Report
    Dim objCrystal As New CRAXDRT.Application
    Option Explicit
  
    Private Sub Form_Load()
        Screen.MousePointer = vbHourglass
        Set Report = objCrystal.OpenReport("G:\Trabalho\Projeto
FC302\Report\Reports\00-AEV.rpt")
        'se não usar banco de dados insira a
        'seguinte linha, supondo que
        'vc já tenha um recordset
        'report.Database.SetDataSource rs_recordset
        CRViewer1.ReportSource = Report
        CRViewer1.ViewReport
        Screen.MousePointer = vbDefault
    End Sub
  
    Private Sub Form_Resize()
        CRViewer1.Top = 0
        CRViewer1.Left = 0
        CRViewer1.Height = ScaleHeight
        CRViewer1.Width = ScaleWidth
    End Sub

Esse exemplo funcionou legal, ele permite que você altere o template mesmo após de linkado o código, pois o código vai sempre abrí-lo através do path especificado em runtime
 


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