Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Базы данных и репортинг > Почему добавляется лишняя строка.


Автор: RinOSpro 30.8.2007, 15:17
Здравствуйте скажите почему при выполнение этой функции добавляется лишняя строка.

KontrTbl := DataModule2.DataSource14.DataSet;
RalizTbl := DataModule2.DataSource15.DataSet;

...

while not KontrTbl.Eof do
begin
RalizTbl.Insert;
RalizTbl.FieldByName('Контролер').AsString := KontrTbl.FieldByName('ФиоКонтр').AsString;
RalizTbl.Post;
KontrTbl.Next;
end;

И как исправить это?

Автор: Rodman 30.8.2007, 15:30
сам понял что сказал?

что и куда добавляется???

Автор: ALeXandrK 30.8.2007, 20:19
В том коде, кот. ты предоставил все верно и никаких лишних добавлений не должно быть.
Лишяя в каком смысле? 

Автор: RinOSpro 31.8.2007, 07:30
Сам не знаю вроде все вено эта процедура преписывает из одной таблицы в другую контролеров как это действует

1таблица
1конт
2конт
3конт
4конт

2таблица
1конт
2конт
3конт
4конт
+1пустая запись


делаю через ADO, access.

Автор: Rodman 31.8.2007, 08:34
у меня такое ощущение что Table подготавливает еще одно поле для ввода!!!

Автор: ТоляМБА 31.8.2007, 08:40
Может уж тогда сразу после end; написать RalizTbl.Close;
? Вдруг после энда у него там с этой таблой ещё какая движуха идёт, може после этого и добавляется?

Автор: ALeXandrK 31.8.2007, 09:56
Прогони просто через дебагер с помощью F7 и посмотри... где-то что-то явно там лишнее.

Автор: RinOSpro 3.9.2007, 07:52
Все  нашел косяк, там потом был еще один insert я им дату добавлял дату но исправил ничего лишнего не добавляется. Спасибо

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)