VPF::Проблема при изменениии значений в базе

Jey_k

Дата 17.9.2004, 11:11 (ссылка)

(нет голосов)

Загрузка ...

WEB-командир

Профиль
Группа: Комодератор
Сообщений: 4149
Регистрация: 16.11.2003
Где: Москва

Репутация: 1
Всего: 61

По нажатию кнопки проверка совпадений значений поля IZD с введенными данными, если совпадает,то пересчитать поле VSEGO если нет то добавить новую запись. Проблема (cм картинку)
возникает именно при совпадении (данные берутся из ST:TStringGrid)

Код

procedure TForm3.SpeedButton2Click(Sender: TObject);
var
i:integer;
begin
For i:= 1 to ST.RowCount-1 do
 begin
  Table1.First;
  If Table1.fieldbyname('izd').AsString = ST.Cells[0,i] then
   begin
    Table1.Edit;
    Table1.FieldByName('vsego').AsInteger:=Table1.FieldByName('vsego').AsInteger+strtoint(ST.Cells[2,i]);
    Table1.Post;
   end
  else
  begin
   Table1.Insert;
   Table1.FieldByName('izd').AsString:=ST.Cells[0,i];
   Table1.FieldByName('kart').AsString:=ST.Cells[1,i];
   Table1.FieldByName('vsego').AsString:=ST.Cells[2,i];
   Table1.Post;
  end;
  Table1.Next;
end;
end;

Это сообщение отредактировал(а) Jey_k - 17.9.2004, 11:45

Присоединённый файл ( Кол-во скачиваний: 2 )

334.jpg

--------------------

Проверка IP

user posted image

Orient

Дата 17.9.2004, 15:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 144
Регистрация: 17.7.2004

Репутация: нет
Всего: нет

У тебя в таблице задан индекс с проверкой уникальности, и ты пытаешься добавить повторяющиеся данные.

Chyslyvchyk

Дата 17.9.2004, 16:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 446
Регистрация: 9.5.2004

Репутация: 1
Всего: 5

Jey_k, не создавай дублирующиеся темы.

Ответы смотри тут, а эту тему нужно закрыть.

--------------------

Простота - сестра таланта!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »