Tweet
Hallo, im Formular habe ich zwei ComboBoxes in denen Werte ausgewählt werden. Bevor nun diese Werte in eine Tabelle gespeichert werden, soll diese Tabelle nach den Werten der ComboBoxes durchsucht werden. Falls diese Werte schon vorhanden sind soll das ganze abgebrochen werden. Nun fummele ich schon Stunden das zu bewerkstelligen. Mit den unten aufgeführten Anweisungen, denke ich müßte das doch eigentlich funktionieren. Aber das Programm kommt zum vollkommenen Absturz. Kann man mir sagen wie man eine oben beschriebene Prüfung durchführt, und warum das unten angeführte nicht funktioniert. Ich versuche es jetzt mal mit GoToKey. Vielen Dank Gruß ph.
DataModule2.ErGebTable.First;
while not DataModule2.ErGebTable.Eof do begin
if (Datamodule2.ErGebTableHeimMann.Value = ComboBox2.Text) and
(Datamodule2.ErGebTableHeimMann.Value = ComboBox2.Text) then begin
ShowMessage('Schon vorhanden');
exit;
end
else begin
DataModule2.ErGebTable.Next;
end;
ShowMessage('Kann gespeichert werden');
end;
end;
DataModule2.ErGebTable.First;
while not DataModule2.ErGebTable.Eof do begin
if (Datamodule2.ErGebTableHeimMann.Value = ComboBox2.Text) and
(Datamodule2.ErGebTableHeimMann.Value = ComboBox2.Text) then begin
ShowMessage('Schon vorhanden');
exit;
end
else begin
DataModule2.ErGebTable.Next;
end;
ShowMessage('Kann gespeichert werden');
end;
end;
Comment