Почему дублируются записи?

← →
maxim2 (2002-07-23 09:58) [0]

Привет всем!
Люди помогите 2 день мучаюсь, немогу понять почему при копировании дублируются записи.
Код такой

for i:=1 to form19.Query1.RecordCount do
begin
form19.Query1.RecNo:=i;
form32.Table1.insert;
form32.Table1.FieldByName("pole1").asstring:=form19.Query1.fieldbyname("pole1").AsString;
form32.Table1.FieldByName("pole2").asstring:=form19.Query1.fieldbyname("pole3").AsString;
form32.Table1.FieldByName("pole3").asstring:=form19.Query1.fieldbyname("pole5").AsString;
form32.Table1.FieldByName("pole4").asstring:=form19.Query1.fieldbyname("pole8").AsString;
form32.Table1.FieldByName("pole5").asstring:=form19.Query1.fieldbyname("pole10").AsString;
form32.Table1.FieldByName("pole6").asstring:=form19.Query1.fieldbyname("pole21").AsString;
form32.Table1.FieldByName("pole7").asstring:=form19.Query1.fieldbyname("pole22").AsString;
form32.Table1.post;

end;
И после этого каждой записи по 2 штуки.

← →
Lord Warlock (2002-07-23 10:00) [1]

Скорре всего отсутствий уникального индекса в таблице, куда вставляются записи...

← →
Desdechado (2002-07-23 10:07) [2]

я бы цикл for заменил на
First;
while( not EOF ) do begin
..
Next;
end;

← →
Zelius (2002-07-23 10:11) [3]

А ты не вызываешь эту процедуру дважды? Поставь брякпойнт и посмотри...

Почему дублируются записи? Найти похожие ветки