SQL -> Ein Unterabfrage soll immer 1 und 2 liefern

[raiguen]

Zitat von marabu:

...wenn mit der TRvDataSetConnection gearbeitet wird, dann kann beim Ereignis OnGetRow() auf DataSet.RecNo zugegriffen werden...

Zitat von DeddyH:

Dann könnte man doch theoretisch mit einem Bool' schen Array of TColor und Odd(RecNo) arbeiten, oder täusche ich mich?

Jo, und das kannst du doch im BeforePrint-Ereignis der jeweiligen Reportzeile nutzen:

Delphi-Quellcode:

  if Odd(DataSet.RecNo) then Zeilenfarbe=grau
  else Zeilenfarbe=weiss

nur mal so als Gedanke auf den Programmierertisch geworfen...
Aif der anderen Seite: wenn alles das nicht hilft, warum dann nicht 'einfach' eine Variable (oder meintwegen auch ne Property) 'ZeilenNr' verwenden, die beim BeforePrint abgefragt wird und beim AfterPrint entsprechend incrementiert wird? ...oder über eine Boolsche Variable (oder Property) IstGrau...

Delphi-Quellcode:

procedure BeforePrint()
begin
//--Integer variante:
  if Odd(ZeilenNr) then Zeie=grau
  else Zeile=weiss;
  
//--boolesche Variante
  if Istgrau then Zeilenfarbe=grau
  else Zeilenfarbe = weiss
...
end;

procedure AfterPrint()
begin
//--Integer Variante:
  ZeilenNr := ZeilenNr +1;

//--boolesche Variante:
  //--Farbzustand umkehren
  IstGrau := not Istgrau;
...
end;

Ich denke, das ist doch allemal einfacher und schneller zu handeln, als umständlich irgendeine SQL-Proc zu kritzeln!?