Seguinte: Tenho uma consulta que ela me retorna varios dados inclusive o nome da empresa. o que eu queria era na parte Details do report colocar assim:

 

Empresa: Teste1

 

TelefoneA: 8598357875

CelularA:38473748

 

TelefoneB: 343743874

CelularB: 93447387

 

 

Mas acontece que na minha SQl o nome da empresa vem repetido em todas as ocorencias que ele encontra dos telefones, porque eu nao consegui fazer o DataReport aceitar dois Recordsets.

Alguem tem alguma ideia de como resolver o problema?

 

Valeu

Fala amigão,

 

O seu problema é que sua Query vem repetida e voce tem que criar uma Sub Query para poder resolver este problema.

 

 

Como esta sua estrutura de dados para o relatorio ? Dataenviroment ou Você faz manualmente ?

 

Se for DataEnviroment voce tera que criar um Sub Command ;

 

Se for manual voce devera criar a Sub Query e transferir para o Data Report

 

desta forma voce devera criar 2 Header no Data Report o primeiro para a Query e o segundo para a Sub.

 

Alexandre Costa

ArtSoftSystems

 

E ai blz

Eu to usando uma Query soh e fazendo na mao mesmo.

Eu nao sei eh manipular o Header do Data Report.

A minha query eh esta aqui:

 

Sql = "Select tl_cadastro.nome as empresa,DATE_FORMAT(tl_chamado.data, '%d/%m/%Y %h:%i:%s') as DataChamado,"
Sql = Sql & "tl_chamado.contato as contato,tl_chamado.assunto as assunto,cliente_catg.nome as categoria,"
Sql = Sql & "cliente_pessoa.nome as tipopessoa,tl_status.nome as status,tl_chamado.telefone as telefone "
Sql = Sql & "From tl_cadastro INNER JOIN tl_chamado ON (tl_cadastro.idtelem = tl_chamado.idtelem) "
Sql = Sql & "INNER JOIN cliente_catg ON (tl_cadastro.categoria = cliente_catg.idcat) "
Sql = Sql & "INNER JOIN cliente_pessoa ON (tl_cadastro.tipopessoa = cliente_pessoa.idpessoa) "
Sql = Sql & "INNER JOIN tl_status ON (tl_cadastro.status = tl_status.idstatus) "
Sql = Sql & "Where tl_chamado.iduser = " & idFunc

Set rsRel = CreateObject("ADODB.Recordset")
rsRel.Source = Sql
    Set rsRel.ActiveConnection = Cn
    rsRel.Open

Set rptTelem.DataSource = rsRel
rptTelem.Show

to fazendo assim e no report indicando o DataField direto.

 

Se puder ajudar....

Esqueci de perguntar: Os dados apenas aparecem na sessao Detail, correto? Dados vindo de recordset.

Bom, vamos por partes:

1. Em primeiro lugar, todos os campos que nao se devem repetir no report devem ser agrupadps, logo na sua "query" tem que existir um Group by, que neste caso, parece, deve ser a empresa;

2.Para contruir um relarorio com um GroupHeader no DataReport você tem que construir uma recordsethierarquica, que tem duas partes:

   - 1 comando pai para o Cabeçalho

   - 1 comando filho para o detalhe

3. Se usa o Data Environment esses dois comandos tem que ser construidos no mesmo, quer acessando a query que refere quer atraves das tabelas respectivas

5. Se usa codigo(Ado) veja este exemplo:

 

Se quiser alguns bons exemplos de como trabalhar com DataReport visite o site do macoratti em:

http://www.macoratti.net (tem ate um exemplo bem recente de como usar DataReport.

 

Nota final: O DataReport é uma ferramenta que embora fazendo parte do proprio VB( e portanto nao exigindo licenças de terceiros) é um grande bico de obra, portanto prepare-se para muito trabalho de pesquisa se quiser fazer relatorios minimamente complexos com a mesma.