Fastreport DBGrid

[Furtbichler]

Die Fragestellung ist etwas merkwürdig.
1. Man druckt kein DBGrid aus, sondern erstellt eine eigene Tabelle in FastReport auf Grundlage von Datenmengen (TDataSet).
2. Bei einer Kreuztabelle ist ja gerade der Witz der, das man die Spalten zur Laufzeit erstellt. Das liegt in der Natur der Sache.

Einerseits hast Du ein TDBGrid, andererseits eine Kreuztabelle. Was denn nun?

Wenn Du eine Crosstab hast und die erste Spalte statisch rechtsbündig ausrichten willst, versuche, die Query so umzuformen, das die erste Spalte als eigene Spalte erscheint (denn die ist ja dann auch statisch). Eventuell kommst du dann weiter (aber ich sehe nicht direkt, wie).

Aber es scheint mit Mühe zu gehen, vermutlich über Umwege: Man kann den fertig gerenderten Report ja auch nachträglich per Delphi-Code durchsuchen und entsprechende Komponenten anfassen. Hier müsstest Du an die erste Spalte deines Crosstab-Objekts herankommen.

[EarlyBird]

Sende doch mal ein Bild wie es aussehen soll
Vielleicht hilft Dir auch folgendes: Creating a report from Code

[Jick]

Anbei mal ein Bild wie es jetzt mit einem Crosstab aussieht.
Die Gesamtsumme will ich rechts ausrichten.

Delphi-Quellcode:

procedure TfrmAuswertung.frxReport1BeforePrint(Sender: TfrxReportComponent);
//CrossView füllen
var
  Cross: TfrxCrossView;
  i, j: Integer;
  s: string;
begin
  if Sender is TfrxCrossView then
  begin
    Cross := TfrxCrossView(Sender);
    DBGrid1.DataSource.DataSet.First;
    i := 0;
    while not DBGrid1.DataSource.DataSet.Eof do
    begin
      for j := 0 to DBGrid1.DataSource.DataSet.Fields.Count - 1 do
      begin
        if (DBGrid1.DataSource.DataSet.Fields[j] is TFloatField) then
        begin
          s := format('%.2f',[DBGrid1.DataSource.DataSet.Fields[j].AsFloat]);
          Cross.AddValue([i], [DBGrid1.DataSource.DataSet.Fields[j].DisplayLabel],
            [s]);
        end
        else
        begin
          Cross.AddValue([i], [DBGrid1.DataSource.DataSet.Fields[j].DisplayLabel],
            [DBGrid1.DataSource.DataSet.Fields[j].AsString]);
        end;
      end;
      DBGrid1.DataSource.DataSet.Next;
      Inc(i);
    end;
  end;
end;