Hi Luete, habe ein Problem mit einer Funktion, mit der ich einen Datensatz oder eine Teilmenge (alle Daten die nach Filterung in ReisekostenForm.DBGrid sind) in meine normale Form übergeben möchte. Diese sieht soweit so aus
Delphi-Quellcode:
procedure TReisekostenForm.SearchBtnClick(Sender: TObject);
var
SucheReisekostenForm: TSucheReisekostenForm;
begin
try
SucheReisekostenForm := TSucheReisekostenForm.Create(self);
begin
SucheReisekostenForm.ShowModal();
begin
if gvarStatus = 1 then // für einen Datensatz
OpenParamQuerySQL(ReisekostenQuery, 'SELECT * FROM Reisekosten WHERE ID = :ID AND MANr = :MANr ORDER BY ID ASC', ['ID', 'MANr'], [SucheReisekostenForm.ReisekostenQuery.FieldByName('ID').AsInteger, SucheReisekostenForm.ReisekostenQuery.FieldByName('MANr').AsInteger]);
if gvarStatus = 2 then // für eine Teilmenge
OpenParamQuerySQL(ReisekostenQuery, SucheReisekostenForm.QBuilder.SQL, SucheReisekostenForm.PV);
if TeilmengeOffen = 1 then
TeilMengeBtn1.Enabled := true;
end;
end;
finally
SucheReisekostenForm.Release();
end;
end;
Ich bekomme allerdings die Fehlermeldung ReisekostenQuery: Operation bei geschlossener Datenmenge nicht ausführbar, ich weiß aber nicht was ich ändern muss... Der Fehler tritt in den beiden Zeilen unter der Abfrage zu gvarStatus auf.