Als ich die gescannten EAN's als Typ Character in meiner Tabelle Speichern wollte ging es nicht. Nur Numerisch. Sorry, war aber so.
Bin immernoch dabei die 2.
If-Anweisung einzubinden. Ich platziere das dazugehörige
Endfalsch. Könnte verrückt werden.
Und dann stören auch immernoch die lästigen Nachbarn weil meine LAG heute ihre Fahrprüfung bestanden hat.
Hier nochmal der derzeit funzende Code:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
| procedure TForm1.Edit1Exit(Sender: TObject);
begin
if Edit1.Text <>'' then
begin
if table1.locate('Artikelnr', Edit1.Text, []) then begin
if Edit2.Text<> '' then begin
with Table2 do begin
Table2.Append;
FieldByName('Artikelnr').AsString:= Table1.FieldByName('Artikelnr').asString;
FieldByName('Artikelnam').asString:= Table1.FieldByName('Artikelnam').asString;
FieldByName('Anzahl').asString:= Edit2.Text;
Table2.Post
end
end;
end else
ShowMessage('EAN-Code noch nicht angelegt');
end else
ShowMessage('EAN-Feld darf nicht leer sein');
end; |
Problem: jeder Artikel wird 2x in der 2. Tabelle abgespeichert. Einmal mit der Bezeichung des Edit2-Feldes und einmal mit der tatsächlich eingegebenen Anzahl.
Und wie gesagt, wie bekomme ich die Tabelle ohne SQL am schnellsten leer? Records zählen und ne Zählschleife bauen?
Gruss
crashboy
