Pular para o conteúdo principal

VB6 - Configurando um DataReport via Código

 

Primeiro você cria uma conexão ADO ou DAO..

No meu caso usei ADO - TB é minha Recordset

Para carregar Labels:

DataReport.Sections("Section4").Controls.Item("Label1").Caption = "Titulo" ou "Campo"

Ex.: DataReport.Sections("Section4").Controls.Item("Label1").Caption = TB!Campo

* Section4 é a seção de cabeçalho. Para saber o seção é só olhar no Report, onde o nome da seção é sempre o que está entre parenteses.
Ex: Qdo crio um novo relatório O cabeçalho está como : Report Header (Section4) para carregar labels nesta seção uso o nome section4.

Para carregar uma text:

DataReport.DataMember = ""
DataReport.Sections("Section1").Controls.Item("Text1").DataField = TB!Campo.Name

* Assim como na label a section representa minha seção de Details
* DataMember é " " (vazio) porque não uso o dataenvironment como conexão, conseqüentemente não tenho a command.

Obs.: Texts só podem ser carregadas na seção Detail (Section1) nas outras seções se vc quiser carregar resultados vc primeiro deve fazer as contas as contas e depois carregar as labels. Ex:

Debito = TB!Campo
Credito = TB!Campo
SaldoFinal = Debito + Credito

DataReport.Sections("Section4").Controls.Item("Label1").Caption = SaldoFinal

Comentários

Postagens mais visitadas deste blog

Configurando o XDebug com Docker e PHPStorm em um projeto Yii2 Advanced

Este passo a passo é bem chato de fazer no início! A imagem do docker já deve ter o xdebug instalado! A configuração vai no php.ini que vamos montar.

Instalando Docker

Remover versões antigas: sudo apt-get remove docker docker-engine docker.io containerd runc