Ich habs,
nach langen Suchen:
Delphi-Quellcode:
procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
Name: string;
begin
if c is TfrxCrossView then
begin
Name := TfrxCrossView(c).Name;
if Name = 'Cross1' then
begin
Cross := TfrxCrossView(c);
for i := 0 to 1 do
for j := 0 to 6 do
Cross.AddValue([j], [i], [SG_Pat.Cells[i, j + 1]]);
end;
if Name = 'Cross2' then
begin
Cross := TfrxCrossView(c);
for i := 0 to 6 do
for j := 0 to 10 do
Cross.AddValue([j], [i], [SG_Werte.Cells[i, j + 1]]);
end;
end;
end;
Das problem war, daß ich nicht zwar mit dem alten Code mitgeteilt bekam, ob ein TfrxCrossView ein Event gesendet hat,
aber ich bekam nicht mit. welches TfrxCrossView gesendet hat.
Entweder die erste Tabelle im FastReport Cross1:TfrxCrossView,
oder die 2. Tabelle im FastReport Cross2:TfrxCrossView
Das Problem bestand darin, mitzubekommen, welche Tabelle gesendet hat,
Cross2:TfrxCrossView oder Cross2:TfrxCrossView.
Das habe ich im neuen Code mit
Delphi-Quellcode:
Name := TfrxCrossView(c).Name;
if Name = 'Cross1' then
....
if Name = 'Cross2' then
...
herausbekommen.
Vielleicht kann ich mit meiner mühsamen Erkenntnis anderen mal helfen.
Viele Grüße und Danke für die Gehirnspäne
E. B.