Key violation

← →
Russko © (2003-10-02 13:00) [0]

Подскажите пожалуйста, почему в таблице при переходе ко второй записи: DataModule2.Table2.Next возникает ошибка:"Key violation".

← →
Reindeer Moss Eater © (2003-10-02 13:04) [1]

Потому что переход ко второй записи инициирует insert записи в таблицу в которой нарушается ограничение первичного ключа

← →
Russko © (2003-10-02 13:08) [2]

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

← →
MsGuns © (2003-10-02 13:09) [3]

Перед Next проверять конец ли это НД

← →
Russko © (2003-10-02 13:25) [4]

Извеняюсь, но представьте что я профан. Подскажите какими свойствами воспользоваться???

← →
DenK_vrtz © (2003-10-02 13:27) [5]

DataModule2.Table2.eof

← →
Russko © (2003-10-02 13:31) [6]

До такого я и сам дошёл. Вот сам кусок, где возникает ошибка:
DataModule2.Table2.First;
while not DataModule2.Table2.Eof do begin
DataModule2.DataSource3.Edit;
DataModule2.Table3.FieldByName("N").AsString:=DataModule2.Table2.FieldByName("N").AsString;
DataModule2.Table3.FieldByName("Oboznachenie").AsString:=DataModule2.Table2.FieldByName("Oboznachenie").AsString;
DataModule2.Table3.FieldByName("Material").AsString:=DataModule2.Table2.FieldByName("Material").AsString;
DataModule2.Table3.FieldByName("Priznak").AsString:=DataModule2.Table2.FieldByName("Priznak").AsString;
DataModule2.Table3.FieldByName("Profil").AsString:=DataModule2.Table2.FieldByName("Profil").AsString;
DataModule2.Table3.FieldByName("Width").AsString:=DataModule2.Table2.FieldByName("Width").AsString;
DataModule2.Table3.FieldByName("Height").AsString:=DataModule2.Table2.FieldByName("Height").AsString;
DataModule2.Table3.FieldByName("Number").AsString:=DataModule2.Table2.FieldByName("Number").AsString;

DataModule2.Table2.Next;
DataModule2.Table3.Append;
end;

← →
Johnmen © (2003-10-02 13:33) [7]

>Reindeer Moss Eater © (02.10.03 13:04)
>Потому что переход ко второй записи инициирует insert записи в
>таблицу

:)) Кем/чем инициируется ???

← →
Anatoly Podgoretsky © (2003-10-02 13:33) [8]

Ты создаешь жве пустые записи, а больше одной никак не получится.

← →
Johnmen © (2003-10-02 13:36) [9]

Срочно Edit, Append, Post, Next + F1 !!!

← →
DenK_vrtz © (2003-10-02 13:37) [10]

Круто!!!!
А для копирования данных BatchMove не помогает?

Всё путём, всем спасибо. Я просто поставил DataModule2.Table3.Append; в начало цикла ивсё)))

Да уж, код супертяжелый ! А вот использовать вместо этажерок типа
DataMudule2.Table1.FieldByName().As...

структурных записей (record) или хотя бы конструкции with .. do слабо ?

Нет, не слабо, просто не покатит.

>Johnmen может и полетит)))

Key violation Найти похожие ветки