rosodo1
05-01-2007, 02:49:27
Estoy creando un informe de QuickReport 3.0.9 en Ejecucion en el cual voy introduciendo los campos que me convienen en cada momento con TQRDBText en un TQRBand-Detail y el titulo del campo con un TQRLabel en un TQRBand-Column Header . El problema es que solo veo el titulo del informe pero no aparecen ni los titulos de los campos ni el contenido.
El codigo seria algo asi:
begin
columnas := Grid.Columns.Count;
SetLength(Etiquetas, columnas);
SetLength(Campos, columnas);
For ite := 0 to columnas - 1 do
begin
Etiquetas[ite] := TQRLabel.Create(Q2Cap);
Campos[ite] := TQRDBText.Create(Q2Detalle);
//Etiquetas
Etiquetas[ite] := QRLabel1;
Etiquetas[ite].Caption := Grid.Columns[ite].Title.Caption;
Etiquetas[ite].Width := Grid.Columns[ite].Field.DataSize;
//Etiquetas[ite].Top := QRLabel1.Top;
Etiquetas[ite].Transparent := false;
//Etiquetas[ite].Enabled := True;
//Etiquetas[ite].Frame := QRLabel1.Frame;
//Etiquetas[ite].Height := QRLabel1.Height;
//Etiquetas[ite].Font := QRLabel1.Font;
//Etiquetas[ite].Size := QRLabel1.Size;
If ite > 0 then
Etiquetas[ite].Left := Etiquetas[ite-1].Left + Etiquetas[ite-1].Width + 20
else
Etiquetas[ite].Left := 0;
//Campos
Campos[ite] := QRDBText1;
Campos[ite].DataSet := DM.QInforme;
Campos[ite].DataField := DM.QInforme.FieldList.Fields[ite].FieldName;
Campos[ite].Width := Etiquetas[ite].Width;
//Campos[ite].Top := 0;
Campos[ite].Left := Etiquetas[ite].Left;
Campos[ite].Visible := true;
Campos[ite].Transparent := False;
end;
DM.QInforme.Active:=True;
end;
¿Sabeis que falta o donde esta el error?
Gracias
El codigo seria algo asi:
begin
columnas := Grid.Columns.Count;
SetLength(Etiquetas, columnas);
SetLength(Campos, columnas);
For ite := 0 to columnas - 1 do
begin
Etiquetas[ite] := TQRLabel.Create(Q2Cap);
Campos[ite] := TQRDBText.Create(Q2Detalle);
//Etiquetas
Etiquetas[ite] := QRLabel1;
Etiquetas[ite].Caption := Grid.Columns[ite].Title.Caption;
Etiquetas[ite].Width := Grid.Columns[ite].Field.DataSize;
//Etiquetas[ite].Top := QRLabel1.Top;
Etiquetas[ite].Transparent := false;
//Etiquetas[ite].Enabled := True;
//Etiquetas[ite].Frame := QRLabel1.Frame;
//Etiquetas[ite].Height := QRLabel1.Height;
//Etiquetas[ite].Font := QRLabel1.Font;
//Etiquetas[ite].Size := QRLabel1.Size;
If ite > 0 then
Etiquetas[ite].Left := Etiquetas[ite-1].Left + Etiquetas[ite-1].Width + 20
else
Etiquetas[ite].Left := 0;
//Campos
Campos[ite] := QRDBText1;
Campos[ite].DataSet := DM.QInforme;
Campos[ite].DataField := DM.QInforme.FieldList.Fields[ite].FieldName;
Campos[ite].Width := Etiquetas[ite].Width;
//Campos[ite].Top := 0;
Campos[ite].Left := Etiquetas[ite].Left;
Campos[ite].Visible := true;
Campos[ite].Transparent := False;
end;
DM.QInforme.Active:=True;
end;
¿Sabeis que falta o donde esta el error?
Gracias