Hallo,
@marabu
Zitat:
function NextKey(tblName, fldName: String): Integer;
...
end;
procedure TFormRechnungen.QueryRechnungenBeforeInsert(DataSe t: TDataSet);
begin
DataSet.FieldByName('RNR').AsInteger := NextKey('RNR', 'Rechnungen');
end;
Entschuldigung, ich hatte mich nach NextKey in der function gerichtet
und im BeforeInsert irrtümlich NextKey('Rechnungen', 'RNr') geschrieben. Deshalb wurde zunächst die Tabelle nicht gefunden.
Schon kämpfe ich mit einem neuen Problem:
'Datenmenge weder im Editier- noch im Einfügemodus'
Delphi-Quellcode:
TFRechnungenListe.BtnNeuClick(Sender: TObject);
begin
with FRechnungen do
begin
Show;
QueryRechnungen.Append; //Einfügemodus
QueryRechnungen.FieldByName('RNr').AsInteger :=
StrToInt(EditRNr.Text);
...
end;
In QueryRechnungen.SQL(TStrings) steht: SELECT * FROM Rechnungen
Wer hilft mir bitte?
Gruß
Lombi