DBGrid - Multiselect

**Natalia**

Hallo Leute,

ich möchte mehrere Zeilein in einem DBGrid auswählen und die Werte in ein anderes Grid schreiben. Der Code funktioniert schon:

markieren

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!

DBGrid - Multiselect

DBGrid - Multiselect

Forumregeln