Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c