Tabelle von Crystal Reports ändern

[Berni210]

Moien,

wir arbeiten hier mit Delphi 7 und Crystal Reports 11. Nun ist es erforderlich zur Laufzeit die Tabelle zu ändern auf die Crystal Reports basiert - nur WIE???

Wir haben alles mögliche ausprobiert - schaffen es aber nicht diese zu ändern.

Kann mir jemand dafür ein Code-Beispiel senden?

Gruß

Bernd
P.S.: Im Anhang unser derzeitiger Code....


procedure TREB_MDI.PreviewCR(filename: string; RA_ID: integer; temp: boolean = false);
// ------------------------------------------------------------
var CrRep: TCrpe;
strConnectBuffer: string;
a: integer;
begin

strConnectBuffer := FetchConnectionString;

Screen.Cursor := crHourGlass;
CrRep := TCRpe.Create(self);
CrRep.ReportName := ExtractFilePath(Application.ExeName) + 'Reports\' + filename;



for a := 0 to CrRep.Tables.Count - 1 do
begin;
crrep.Tables.Items[a].ConnectBuffer := strConnectBuffer;
crrep.LogOnInfo.Items[a].Password := 'beluga';

if temp = true then
begin;
// Temporary Report
crrep.Tables[0].Name := '##REB_Temp_' + activeuser.UserIDText;
crrep.Tables.Items[a].SubName := '##REB_Temp_' + activeuser.UserIDText;
end;
end;

crrep.Selection.Formula.Clear;
crrep.Selection.Formula.text := '{abf_rechnungsdruck.RA_ID} = ' + inttostr(ra_id);
if crrep.Selection.Check = false then showmessage('BÖSER Report');
CrRep.WindowSize.Top := 0;
CrRep.WindowSize.Left := 0;
CrRep.WindowSize.Height := 650;
CrRep.WindowSize.Width := 877;
CrRep.WindowButtonBar.CloseBtn := true;
CrRep.WindowStyle.Disabled := True;
CrRep.Show;

while CrRep.Status = crsJobInProgress do
Application.ProcessMessages;
CrRep.WindowStyle.Disabled := False;
Screen.Cursor := crDefault;

CrRep.CloseJob;
CrRep.Free;
end;