Freereport Gruppierung

[jensenwb]

Hallo,

wie kann ich mit Freereport einen Report erstellen der aus folgenden Daten:

Ort Betrag
Aue 125,33
Aue 255,30
Berlin 33,00
Berlin 67,00

folgenden Report erstellt

Ort Betrag
Aue 380,63
Berlin 100,00

Das bedeuted der alle Beträge zu einem Ort zusammenrechnet und dann nur eine Zeile mit den Ortsnamen und den Betrag ausgibt.

[mkinzler]

Verwende eine Gruppierungsabfrage:
select ort, sum(betrag) as betrag from <tabelle> group by ort;

[jensenwb]

Muß ich den SQL-Befehl in den Report scheiben?

[mkinzler]

Nein in einen TQuery, den du im Report dann verwendest

[jensenwb]

Ich habe jetzt eine TQuery verwendet, aber in meinen Report wenn ich dann Query1 auswähle werden keine Felder angezeigt.

[jensenwb]

Habe den Fehler gefunden.

Ich hatte das Feld Betrag auf Alpha in der Datenbank und dadurch konnte der SQL-Befehl nicht asgeführt werden.

[jensenwb]

Ich habe jetzt den Report fertig, erstmal nur mit einem Feld.

Jetzt habe ich aber das Problem das er in einer Endlosschleife hängen bleibt und ich nicht weiß woher die kommt.

Mei Quelltext lautet

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
    table1.Active := False;
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('select ort from druckdatei3 group by ort');
    Query1.ExecSQL;
    table1.Active := True;

    frDBDataset1.DataSource := DataSource4;
    frReport1.PrintToDefault := True;;
    frReport1.LoadFromFile('alle.frf');
    frReport1.PrepareReport;
    frReport1.PrintPreparedReport('1-10000',1);

end;

Woran kann es jetzt liegen das er in einer Endlosschleife hängt und das Programm dann abstürzt

[mkinzler]

Delphi-Quellcode:

    table1.Active := False;
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.text := 'select ort, sum(betrag) as betrag from druckdatei3 group by ort';
    Query1.Open;
    table1.Active := True;

[jensenwb]

Ich habe den Quelltext jetzt so geändert, aber er macht immer noch die Endlosschleife.

Ich habe mal eine DBGrid mit auf dem Formular gemacht um zu schauen was passiert, er fängt dann immer wieder von vorne an.

Das komische was ja auch noch ist das er mit ja schon die komplette Seitenanzahl anzeigt als wenn ich alle Datensätze in einer Liste ausdrucken möchte.

[mkinzler]

Anhand des Codefragments kann ich keinen Fehler finden. Aber ich hätte noch ein paar Fragen:
-Mit was ist table1 verknüpft?
-Welches DataSet steckt hinter DataSource4?