Einzelnen Beitrag anzeigen

swoob

Registriert seit: 19. Jan 2003
10 Beiträge
 
#5
  Alt 19. Jan 2003, 20:24
Hi!
Also irgendwie habe ich diese key violation noch nicht in den griff bekommen.
Mein programmcode sieht so aus:
Zitat:
procedure TForm4.Button4Click(Sender: TObject);
begin

Form3.Query2.edit;
Form3.Query2.Append;
Form3.Query2.Insert;
Form3.Query2Datum.Value := DateTimePicker1.Date;
Form3.Query2ArtikelNr.Value := Table1.FieldByName('ArtikelNr').AsInteger;
Form3.Query2Produktname.Value := Table1.FieldByName('Produktname').AsString;
Form3.Query2Produkttyp.Value := Table1.FieldByName('Produkttyp').AsString;
Form3.Query2KundenNr.Value := StrToInt(Label7.Caption);
Form3.Query2.Post;
Form3.Query2.Next;

Table1.Delete;
end;
Ich habe es leider nicht geschafft deinen Vorschlag einzubauen, da ich daüfr zu wenig Kenntnis habe.
Könntest du mir ein konkreteres Beispiel schreiben?
Bei mir können nicht mal 2 verschiedene Kunden, dh 2 verschiedene KundenNr, ein und denselben Artikel kaufen.
Was kann ich tun?

mfg
swoob.
  Mit Zitat antworten Zitat