LazarusBrasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Utilizando lazreport

Ir para baixo

Utilizando lazreport Empty Utilizando lazreport

Mensagem  macsmo Qua Jun 23, 2010 2:02 pm

Saudações
Estou trabalhando com desenvolvimento de um software que apresentarei no meu trabalho de conclusão da pos-graduação.
Preciso exibir algumas informações no lazreport.
Criei o relatorio, e as variaveis.
Enquanto usando edits, sem problemas. A questão é quando preciso passar ao relatorio, os valores de um stringgrid.
Busquei resposta em um exemplo que vem no lazreport, mas configurei conforme o exemplo e o relatorio não tem cristo de
exibir todas as linhas da stringgrid.
Segue:

procedure TFormredes.filaCheckEOF(Sender: TObject; var Eof: Boolean);
begin
Eof := linha > sgrede.RowCount - 1;
end;

procedure TFormredes.filaFirst(Sender: TObject);
begin
linha:= 1;
end;

procedure TFormredes.filaNext(Sender: TObject);
begin
inc(linha);
end;

procedure TFormredes.fr1GetValue(const ParName: String; var ParValue: Variant);
begin
if parname = 'maquinas' then
parvalue:=editcomputadores.text;

if parname = 'setor' then
parvalue:=sgrede.cells[0,fila];

if parname = 'npc' then
parvalue:=sgrede.cells[1,fila];

if parname = 'ip'then
parvalue:=sgrede.cells[2,fila];

if parname = 'masc' then
parvalue:=sgrede.cells[3,fila];
end;

Alguem pode me prestar um socorro??

bom Abração galera.

macsmo

Mensagens : 2
Data de inscrição : 23/06/2010

Ir para o topo Ir para baixo

Utilizando lazreport Empty corrigindo

Mensagem  macsmo Qua Jun 23, 2010 2:28 pm

No evento ongetvalue a variavel nao e fila, e sim linha:

procedure TFormredes.fr1GetValue(const ParName: String; var ParValue: Variant);
begin
if parname = 'maquinas' then
parvalue:=editcomputadores.text;

if parname = 'setor' then
parvalue:=sgrede.cells[0,linha];

if parname = 'npc' then
parvalue:=sgrede.cells[1,linha];

if parname = 'ip'then
parvalue:=sgrede.cells[2,linha];

if parname = 'masc' then
parvalue:=sgrede.cells[3,linha];
end;

macsmo

Mensagens : 2
Data de inscrição : 23/06/2010

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos