Thema: Delphi Einträge Importieren

Einzelnen Beitrag anzeigen

The Re@l

Registriert seit: 2. Jan 2003
77 Beiträge
 
#6
  Alt 1. Apr 2003, 09:37
Mal ne andere Frage

Code:
procedure TForm1.Button4Click(Sender: TObject);
var
i: Integer;
begin
If OpenDialog1.Execute then Begin
Table2.Active := false;
Table2.TableName := OpenDialog1.FileName ;
Table2.Active := True;
for i := 0 to Table2.FieldCount - 1 do begin
 Table1.Append;
 Table1.Fields.Fields[i].AsString := Table2.Fields.Fields[i].AsString;
 Table1.Post;
  end;
  end;
  end;
Was is den Hier Falsch Der gibt "IndexFehler" beim ausführen zurück.

[Message=Sakura]Kein Problem - Doppelposting entfernt[/Message]
  Mit Zitat antworten Zitat