| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Почему дублируются записи? [D6, Paradox]
maxim2 © (2002-07-23 09:58:00)Привет всем!
Люди помогите 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 штуки.
Zelius (2002-07-23 10:11:00) [1]А ты не вызываешь эту процедуру дважды? Поставь брякпойнт и посмотри...
Desdechado (2002-07-23 10:07:00) [2]я бы цикл for заменил на
First;
while( not EOF ) do begin
..
Next;
end;
Lord Warlock (2002-07-23 10:00:00) [3]Скорре всего отсутствий уникального индекса в таблице, куда вставляются записи...
| |
