Tente usar o QDBRichText, colocando a propriedade DataField = Campo =D ________________________________
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Moked - Thiago (Brasil) Enviada em: sexta-feira, 1 de dezembro de 2006 16:17 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Problema com o Quick Report Dessa maneira tbm não funcionou marcelo.. [s] Thiago ________________________________ De: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> [mailto:delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> ] Em nome de Marcelo Enviada em: sexta-feira, 1 de dezembro de 2006 06:01 Para: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> Assunto: Re: [delphi-br] Problema com o Quick Report Moked - Thiago (Brasil) escreveu: > Bom dia colegas Delphianos, > > Estou tendo um problema na hora de gerar um relatório, > estou utilizando um componente do tipo QRMemo, para receber os dados, > conforme parte do código abaixo, mas quando o relatório é gerado, > somente aparece os dados do 1ºregistro do banco ou do último registro.... > > ele não fica passando de um a um, como os campos .DataField.... > > Alguém teria uma sugestão?? > > eu tentei.. abrir o ClientDataSet.. e dar um first. depois dentro do > laço colocar um next... e não adiantou... > > for i := 0 to RecordCount-1 do > begin > qrdbDadoAten0.DataField := 'AteCodi'; > qrdbDadoAten3.DataField := 'UsuNome'; > qrdbNomeProcurador.DataField := 'pro_nome'; > qrdbAtend1.DataField := 'His_Data'; > qrdbDadoAte2.DataField := 'HisDura'; > qrdbSituacao.DataField := 'ate_situ'; > mmAteDesc.Lines.Text := fieldbyname('AteDesc').AsString; > end; > > > Thiago Filiano > > [As partes desta mensagem que não continham texto foram removidas] > > > >---------------------------------------------------------- > >Internal Virus Database is out-of-date. >Checked by AVG Free Edition. >Version: 7.1.408 / Virus Database: 268.13.6/486 - Release Date: 19/10/2006 > > Voce experimentou fazer assim: mmAteDesc.Lines.Add(fieldbyname('AteDesc').AsString) ??? Espero ter ajudado [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]