Datenmenge geschlossen

[Luca Haas]

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.