Fast Report - Leerzeile einfügen bei fehlendem Datensatz

[Jens Hartmann]

Wie im Beitrag 1 geschrieben, nutze ich MSAccess "Kundendab.accdb".

Trotz allem versteh ich das nicht. Wenn ich das genannte SQL Statement verwenden würde, würde er mir ja immer aller 256/512 Zeilen ausgeben. Ich möchte aber doch nur wie im vorherigen Beispiel dargestellt, die tatsächlich vorhandenen Zeilen zzgl. jeweils einer einzigen, wenn die vorhandenen nicht fortlaufend sind.

Am Ende muss gar nichts eingefügt werden. Es geht ja nur darum, den Report entsprechend übersichtlicher zu gestalten.

[Sir Rufo]

Programmieren ist halt manchmal wie Billiard, wo auch nicht immer der direkte Stoss zum Ziel führt, sondern auch mal über eine oder mehr Banden und/oder mit weiteren Kugeln, die den Stoss weitertragen.

Also du hast da eine Hilfstabelle mit allen möglichen fortlaufenden Zahlen (1..256 whatever).

Value
1
2
:
255
256

Für die aktuelle Abfrage benötigst du davon die Zeilen

SQL-Code:

select
  Value,
  Meldergruppe,
  Adresse,
  Etage,
  Meldebereich
from
  ValueTable
left join MelderGruppen
  on Meldergruppe = Value
where
  Value <= Max( Meldergruppe ) -- << könnte auch ein SubSelect benötigen!
order by
  Value

Das DataSet sieht dann schon mal so aus

Value	Meldegruppe
1	1
2	2
3	NULL
4	NULL
5	NULL
6	NULL
7	7

Damit kannst du ja schon mal weiter experimentieren

[Jens Hartmann]

Zitat von Sir Rufo:

Das DataSet sieht dann schon mal so aus
Value Meldegruppe
1 1
2 2
3 NULL
4 NULL
5 NULL
6 NULL
7 7
Damit kannst du ja schon mal weiter experimentieren

Das ist mir ja alles soweit klar. Habe ich ja in meinem vorherigen Beitrag geschrieben.

Zitat von Jens Hartmann:

Trotz allem versteh ich das nicht. Wenn ich das genannte SQL Statement verwenden würde, würde er mir ja immer aller 256/512 Zeilen ausgeben. Ich möchte aber doch nur wie im vorherigen Beispiel dargestellt, die tatsächlich vorhandenen Zeilen zzgl. jeweils einer einzigen, wenn die vorhandenen nicht fortlaufend sind.

Jetzt habe ich das ganze in einem Dataset. Das ist bei mir die Komponenten tfrxDBDataSet. Ich sehe hier aber keine Möglichkeit der Bearbeitung mehr. Das heißt doch dann, das ich die Daten entweder direkt per SQL so fertig filtern muss oder z.B. in einen Record geben kann, dort bearbeiten und anschließend an ein tfrxUserDataSet geben muss.

[Jumpy]

Code:

select
  V.Value,
  Meldergruppe,
  Adresse,
  Etage,
  Meldebereich,
  (Select count(Meldergruppe) From Meldergruppe Where Meldergruppe=V.Value-1) as VorherigeSpalteLeer
from
  ValueTable V
left join MelderGruppen
  on Meldergruppe = V.Value
where
  V.Value <= Max( Meldergruppe ) -- << könnte auch ein SubSelect benötigen!
order by
  V.Value

Ich hab mal für ein Beispiel Sir Rufos Statement um einen Subselect erweitert, der (wenn ich keinen Denkfehler habe) anzeigt, ob die vorherige Spalte bereits leer ist (Evtl. problem beim 1. Datensatz?). Daraus ergibt sich nun:
Meldegruppe <> Null -> Anzeigen
Meldegruppe = Null -> VorherigeSpalteLeer<>0 -> Anzeigen
Meldegruppe = Null -> VorherigeSpalteLeer=0 -> Anzeigen

Du must also entweder um das ganze Select noch einen äußeren Select legen, der diese Kriterien umsetzt oder mal probieren mit "HAVING" zu arbeiten. Hier weiß ich jetzt nicht was in Access SQL da so alles geht. Ist jetzt wahrsch. nicht sehr performant aber bei nur 256 Datensätzen...


Edit:
Gerade nochmal nachgedacht. HAVING ist ja quatsch, da keine Gruppierung vorliegt. Somit muss das ganze in die Where Klausel ala:

Code:

where
  V.Value <= (Select Max(Meldergruppe) From Meldergruppe )
  and (
        Meldegruppe is not null
        or
        (Select count(Meldergruppe) From Meldergruppe Where Meldergruppe=V.Value-1)>0
       )

[Jens Hartmann]

So, jetzt Doktor ich hier schon wieder etwas länger rum

Zitat von Sir Rufo:

SQL-Code:

select
  Value,
  Meldergruppe,
  Adresse,
  Etage,
  Meldebereich
from
  ValueTable
left join MelderGruppen
  on Meldergruppe = Value
where
  Value <= Max( Meldergruppe ) -- << könnte auch ein SubSelect benötigen!
order by
  Value

Value Meldegruppe

1 1

2 2

3 NULL

4 NULL

5 NULL

6 NULL

7 7

Ich frage mich dir ganze Zeit, wie Du die NULL in das Ergebnis bekommst. Ich habe das jetzt mehrfach versucht und in verschiedenen Varianten. Aber nie werden die NULL Spalten angezeigt.

Nach genauer Prüfung, kann das ja auch nicht gehen...

SQL-Code:

from
  ValueTable
left join MelderGruppen
  on Meldergruppe = Value

Im Left Join, wird ja abgefragt, ob der Wert Meldergruppe = Value ist

->

Meldergruppe(1) = Value(1) = true
Meldergruppe(?) = Value(2) = false

[DeddyH]

Ein Left Join ist ein Outer Join, d.h. dass wenn es in der "rechten" Tabelle keine Entsprechungen gibt, werden deren Felder genullt.

[himitsu]

Ohne etwas am Report zu ändern und nur um nochmal das genannte zusammenzufasse, bzw. zu erweitern.

leere Dummy-Datensätze einfügen, für die fehlenden Datensätze
k.A. warum man den Report extra wild verbiegen will.

* entweder aus einem Generator an das Select dranUNIONen (nur die Indize, welche fehlen)
* oder eine Sequenz/Dummytabelle 1 bis 256 (bzw. bis 255) erzeugen und dort die existierenden Daten anJOINen (siehe mein Vorredner)

[Jens Hartmann]

Zitat von DeddyH:

Ein Left Join ist ein Outer Join, d.h. dass wenn es in der "rechten" Tabelle keine Entsprechungen gibt, werden deren Felder genullt.

Ich weiß, nur irgendwas geht halt nicht... Folgend mal die Abfrage...

SELECT ZahlerEMA.MG, MGV_EMA.Meldergruppe FROM ZahlerEMA left join MGV_EMA on MGV_EMA.Meldergruppe = ZahlerEMA.MG WHERE Anlagennummer = 325 ORDER BY ZahlerEMA.MG
Und was bitte ist dann daran falsch. Das Ergebnis der Abfrage liegt im Anhang

[EarlyBird]

du kannst es auch einfach mit einem Script im Report machen
In den Report ein Masterband und ein Detailband einfügen
Masterband Deinem Dataset zuordnen.
Detailband nicht zugeordnet Anzahldatensätze auf 1 stellen
Siehe Screenshot1
Das Ergebnis siehe Screenshot2

Delphi-Quellcode:

var
 LastMeldergruppe : integer;                                             
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin   
  //leere Zeile ausblenden                      
  MasterData1.visible := False;
  if (LastMeldergruppe) <> <frxDBDataset1."Meldergruppe"> then
    begin                         
     //leere Zeile anzeigen                                                   
     MasterData1.visible := True;
    end;
  LastMeldergruppe := <frxDBDataset1."Meldergruppe"> + 1;                                       
end;

procedure frxrprt1OnStartReport(Sender: TfrxComponent);
begin
    MasterData1.DataSet.First;                                         
    LastMeldergruppe := <frxDBDataset1."Meldergruppe">;  
end;

[Dejan Vu]

Die Routine sollte doppelte Nullspalten entfernen (getippt und nicht getestet). D.h. Du liest die Query ein, jagst das DS durch die Methode und druckst anschließend aus.

Delphi-Quellcode:

Procedure RemoveDuplicateNUllRows (aDataSet : TDataSet; aFieldNameToCheckForNull : String);
var
  prevLineWasNull : Boolean;

Begin
  aDataSet.Last;
  While not aDataSet.Bof do begin
    if VarIsNull(aDataSet[aFieldNameToCheckForNull]) then begin
      if prevLineWasNull then 
        aDataSet.Delete;

      prevLineWasNull := Not prevLineWasNul;
    end 
    else prevLineWasNull := false;
    aDataSet.Prior
  end
end;

Du gehst von hinten nach vorne durch und löschst eine leere Zeile, wenn die zuvor besuchte (also, die darunter) auch schon leer war.