SQL -> Ein Unterabfrage soll immer 1 und 2 liefern

[mkinzler]

Einfach dort in einer Schleife die Datensatze zurückgeben und lokale Variable umswitchen

[HolgerCW]

Habe irgendwie ein Brett vor dem Kopf, vielleicht mal ein Beispiel ?

geht es wirklich nicht in SQL vom Programm aus ?

Gruss

Holger

[mkinzler]

http://st-curriculum.oracle.com/tuto...rial/index.htm

Zitat:

geht es wirklich nicht in SQL vom Programm aus ?

in SQL nicht. Lokal aber schon

[HolgerCW]

Zitat:

Lokal aber schon

Wie würde es lokal denn gehen ?

[mkinzler]

Einfach Datenmenge durchgehen und Spalte setzen. Für was brauchst du diesen alternierenden Wert?

[HolgerCW]

Will den an den RaveReport übergeben. Bei 1 = grau Zeile, bei 2 = weisse Zeile

Gruss

Holger

[DeddyH]

Ich mache nichts mit Rave, aber gibt es da nichts ähnliches wie RecNo?

[marabu]

Hallo,

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

Freundliche Grüße

[DeddyH]

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

[raiguen]

Zitat:

Zitat von marabu

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

Zitat:

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!? :gruebel: