Datensatze in QuickReport zählen

[bruno01]

Hi,
ich habe wieder einmal ein Problem. Ich möchte im QuickReport in der Zusammenfassung die Anzahl der Datensätze der Tabelle (Paradox) ausgeben, bekomme es aber nicht hin mit QRExpr und Expression. Habe hier auch keine Antwort gefunden. Kann jemand helfen? Gleich noch eine Frage, wie binde ich SQL in mein Projekt ein?
Grüße

[Yadon]

Hi,

und wenn Du es einfach mit table.recordcount machst, brauchst Du nicht erst Quickreport zu bemühen.

Gruß Yadon

[bruno01]

Hi Yadon,
ich habe bereits mehrere Reports und in einem soll neben einer Gesamtsumme auch die Anzahl der Datensätze ausgegeben werden. Kann ich den Code von Dir auch mit einem QRLabel ausgeben?

[Yadon]

Hi,

klar bei QRLabel.Caption funktioniert wie jedes andere Label.Caption

Gruß Yadon

[r_kerber]

Gab's bei QR nicht auch ein ExpessionLabel oder so Ähnlich? IMHO konnte man damit für einzelne Spalten Summieren, Zählen oder auch Mittelwerte ermitteln.

[Yadon]

Stimmt, gibt es, aber konfliktscheu, wie ich bin, vermeide ich alles in QR, was ich anders einfacher lösen kann.

Gruß Yadon

[r_kerber]

Dann bekommst Du aber u.U. Probleme, wenn der Bericht gruppiert ist und Du gruppenweise zählen oder rechnen willst.
@bruno1: Kannst Du mal etwas genauer beschreiben, was Du bisher versucht hast? Ich habe zwar zur Zeit kein QR zur Verfügung, aber viellecht sieht man dann den Fehler. Zählen der DS mit QR funktioniert eigentlich.

[bruno01]

Hallo r_kerber,
ich habe folgende Varianten probiert:

1. Mit QRLabel
hier bekomme ich immer die Meldung 'unferträliche Datenformate Strin u. Integer' sinngemäß.

2. QPExpr
hier habe ich die Funktion mit dem Expressions-Assistenten erstellt. Ohne Fehlermeldung und ohne Erfolg.

[delphi]
1. Versuch
procedure TZusammenfassung.QRLabel10Print(sender: TObject;
var Value: string);
Var RecordCount : longint;
begin
QRLabel10.Caption := 'Table2.recordCount';
end;


2. Versuch
Expression = 'COUNTTable2.Gegenstand'


3. Versuch
Expression = 'COUNT(Table2.Gegenstand)'

[fkerber]

Hi!

Bei deinem 1. Versuch fehlt eigentlich nur ein typecast, wenn ich das richtig sehe:

Delphi-Quellcode:

procedure TZusammenfassung.QRLabel10Print(sender: TObject; var Value: string); 
Var 
RecordCount : longint; 
begin 
 QRLabel10.Caption := inttostr(Table2.recordCount); 
end;

Ciao Frederic

[bruno01]

Hi fkerber,
sieht gut aus, keine Felermeldung, aber leider auch keine Ausgabe.
:(

Habe auch keine Ausgabe, wenn ich nur einen Text ausgeben will z. B. := 'TEST';