10. März 2009 12:10
Rec.SETCURRENTKEY(Field1);
Rec.SETRANGE(Field, Number);
Variable:=Rec.Field2
Rec2.INIT
Rec2.Field:=Variable
IF NOT Rec.Insert THEN
MODIFY;
10. März 2009 12:42
10. März 2009 13:03
Rec.SETCURRENTKEY(Field);
Rec.SETRANGE(Field, Number);
IF Rec.FIND('-') THEN
REPEAT
Rec2.INIT
Rec2.Field:=Rec.Field; // Ist dies auch das Primärschlüsselfeld von Rec2???
IF NOT Rec2.Insert THEN
Rec2.MODIFY; // Hier Rec2 nicht vergessen!
UNTIL Rec.NEXT = 0;