Band in Rave-Report unterdrücken

[Kalli]

Hallo Thomas,

gibt es irgendwo ein einfaches Beispiel für die 'Mirror-Technik'?

Ich habe inzwischen etwas probiert, mit dem ich aber nicht so recht glücklich bin.


Auszug aus Report:

{ Event for SaldenBand.OnBeforePrint }
function SaldenBand_OnBeforePrint(Self: TRaveBand);
begin
If DataText52.Text = 'nein' then
SaldenBand.Visible := False;
end if;
end OnBeforePrint;

DataText52 ist entweder leer oder es steht 'nein' drin. Ich bin mir aber nicht sicher, ob dies Störungsfrei läuft. Bei den ersten Versuchen hatte ich nicht 'end if;' sondern nur 'end;' geschrieben, worauf der Bericht nach dem 3. bis 4. Aufruf das Programm zum Absturz brachte. Vielleicht eine 'kleine' Kritik von Dir?

Gruß

Kalli


Hab noch was anderes ausprobiert:


procedure TForm1.Button3Click(Sender: TObject);
var
Band: TRaveBand;
Seite: TRavePage;
begin
if DBM.RvProject1.SelectReport('AGL_Abschluss', False) then
begin
Seite := DBM.RvProject1.ProjMan.FindRaveComponent('AGL_Absc hluss.DeckBlatt', nil)
as TRavePage; // Seite suchen
Band := DBM.RvProject1.ProjMan.FindRaveComponent('SaldenBa nd', Seite)
as TRaveBand; // Band suchen

if AbOption.CheckBox4.Checked then // Band ein- bzw ausblenden
Band.Visible := False
else
Band.Visible := True;
DBM.RvProject1.ExecuteReport('AGL_Abschluss');
end;
end;