Einträge Importieren

[Gast]

Code:

   Table1.Open;
   Table2.Open;
   WITH Table2 DO
      BEGIN
         First;
         WHILE NOT EOF DO
            BEGIN
               Table1.Append;
               TRY
                  for i := 0 to FieldCount - 1 do
                     begin
                        IF NOT Fields.Fields[i].IsNull THEN
                           Table1.Fields.Fields[i].AsString := Fields.Fields[i].AsString;
                     end;
                  IF NOT Table1.FieldByName('NAME').IsNull THEN
                     Table1.Post
                  ELSE
                     Table1.Cancel;
               EXCEPT
                  Table1.Cancel;
               END;
               Next; // Nächster Datensatz!!!
            END;
   END

Gruß

Paul Jr.