Habe mir auch mal nen kleinen Report zusammengebaut,
und gemäß einiger Beispiele und Threads hier im Forum alles gemacht.
Wenn ich nun meine Report starte, bekomme ich nun auch unendlich viele Seiten....
Hier mal mein Code:
Delphi-Quellcode:
Procedure Rep_FPL();
var datei:string;
begin
with mainform do
Begin
datei:='S:\Eigene Dateien\Project1.rav';
rvproject1.ProjectFile:=datei;
rvproject1.open;
rvproject1.Execute;
rvproject1.Close;
end;//with mainform
end;
procedure Rep_fpl_GetCol(Connection: TRvCustomConnection);
Begin
connection.WriteField('teilenr',dtString,20,'','');
end;
procedure Rep_fpl_GetRow(Connection: TRvCustomConnection);
Begin
connection.WriteStrData(mainform.STGRPFPL2_UE_1.Cells[0,zeile], '');
end;
procedure Rep_fpl_next(Connection: TRvCustomConnection);
begin
inc(zeile);
end;
procedure Rep_fpl_open(Connection: TRvCustomConnection);
begin
zeile:=2;
connection.datarows:=mainform.STGRPFPL2_UE_1.rowcount;
end;
Ziel ist es, (erstmal) eine Spalte des Grids (STGRPFPL2_UE_1) zu ducken. Wenn ich im Databand1 des angehangenen Reports die
MaxRows eigenschaft auf z.B 10 setze, funzt alles. Trage ich hier jedoch den Wert 0 ein, ist das ergebnis unbrauchbar. Leider kann ich vorher nicht sagen, wieviele Zeilen mein Grid hat.
Bin echt am Ende.........
MFG
Steffen