Hallo Leute,
ich möchte mehrere Zeilein in einem DBGrid auswählen und die Werte in ein anderes Grid schreiben. Der Code funktioniert schon:
Code:
procedure TForm1.Button3Click(Sender: TObject);
var i : integer;
begin
if Grid1.SelectedRows.Count>0 then
begin
for i:=0 to Grid1.SelectedRows.Count-1 do
begin
tblArtikel.GotoBookmark(pointer(Grid1.SelectedRows.Items[i]));
temp.Append;
temp.FieldByName('Nummer').AsString:=tblArtikelANR.AsString;
temp.FieldByName('Bezeichnung').AsString:=tblArtikelBez1.AsString;
temp.Post;
temp.Next;
end;
end;
end;
(DataSourse von Grid1 ist tblArtikel)
Es gibt aber zwei Fehler, die ich nicht finden kann:
- Die erste Artikelnummer wird nicht in der temp-Tabelle angenommen
- Es werden nur die ersten Ziffern von den jeweiligen Artikelnummern angezeigt
("ANR" in der Artikel-Tabelle ist ein String-Feld und hat Leerzeichen)
Kann mir jemand sagen, was ich hier falsch mache?
Danke für alle Vorschläge!