Ver Mensaje Individual
  #2  
Antiguo 03-02-2008
Avatar de PepeLolo
PepeLolo PepeLolo is offline
Miembro
 
Registrado: jun 2003
Ubicación: Fuenlabrada - Madrid - Espagna
Posts: 265
Reputación: 21
PepeLolo Va por buen camino
Talking

Hola,

Puedo confirmate que la versión 4 de fastreport tienes esa opción.
Pongo un ejemplo que viene con las demos.

Código Delphi [-]
procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);
var
  Cross: TfrxCrossView;
  i, j: Integer;
begin
  if c is TfrxCrossView then
  begin
    Cross := TfrxCrossView(c);
    Table1.First;
    i := 0;
    while not Table1.Eof do
    begin
      for j := 0 to Table1.Fields.Count - 1 do
        Cross.AddValue([i], [Table1.Fields[j].DisplayLabel], [Table1.Fields[j].AsString]);
      Table1.Next;
      Inc(i);
    end;
  end;
end;

Un saludo.
__________________
PepeLolo
El hombre el único virus que mide más de unas cuantas micras

Última edición por dec fecha: 03-02-2008 a las 17:28:59.
Responder Con Cita