Корректировка БД

[nataly_ukr]

Начала новый проект Создала базу в DatabaseDiskTop
Нужно записать новое значение реквизита

 rsum:=0;
       Form4.Table3.Active:=true;
       Form4.Table3.Edit;
       Form4.Table3.First;
        For i:=1 to Form4.Table3.RecordCount do
         begin
                 rsum:=Form4.Table3.FieldByName('ves').AsFloat;
                   Form4.Table3.FieldByName('cena').AsFloat:=rsum;
          Form4.Table3.Next;
             end;
           Form4.Table3.Post;

Выдает ошибку Table Dataset not in edit or insert mode Понимаю ошибку, но не пойму что не так , причем на любой массив из БД одна и таже ошибка. DBNavigator исправляет все нормально . Может в DatabaseDiskTop при создании что-то нарушила

[Stilet]

АПробуй так:

Form4.Table3.Active:=true;
Form4.Table3.First;
For i:=1 to Form4.Table3.RecordCount do
begin
rsum:=Form4.Table3.FieldByName('ves').AsFloat;

Form4.Table3.Edit;

Form4.Table3.FieldByName('cena').AsFloat:=rsum;
Form4.Table3.Next;
end;
Form4.Table3.Post;

P.S. А я б это через SQL сделал, та одна команда UPDATE реализует весь твой цикл

[Andrei]

Сообщение от nataly_ukr

Выдает ошибку Table Dataset not in edit or insert mode Понимаю ошибку, но не пойму что не так , причем на любой массив из БД одна и таже ошибка. DBNavigator исправляет все нормально . Может в DatabaseDiskTop при создании что-то нарушила

При каждом перемещении по записям набора данных он автоматически переходит из режима редактирования или вставки в режим просмотра.
Посмотри внимательнее свой код:

Form4.Table3.Active:=true;
       Form4.Table3.Edit; {здесь ты устанавливаешь режим редактирования}
       Form4.Table3.First; {а здесь ты перескакиваешь на первую запись НД переходит в режим просмотра}
        For i:=1 to Form4.Table3.RecordCount do
         begin
                 rsum:=Form4.Table3.FieldByName('ves').AsFloat;
                   Form4.Table3.FieldByName('cena').AsFloat:=rsum; {а здесь ты пытаешся внести изменения, на что получаешь облом}
          Form4.Table3.Next;{а здесь ты в цикле бегаешь по записям. НД снова переходит в режим просмотра}
             end;
           Form4.Table3.Post; {а здесь ты пытаешся внести изменения, на что получаешь облом}

Извините за невнимательность, чепуху-с сморозил. Ошибка возникает на этапе попытки внесения изменения (выделено зеленым), а не на этапе сохранения изменений (метод post. выделено красным подчеркиванием), как было написано ранее.

__________________
Самые глупые вещи всегда говорятся с умным видом. (с) Марк Твен /кажется/

[nataly_ukr]

Stilet Привет земляк , твои примочки помогли Но что-то мне от этого Edit зарябило, наверное напишу через SQL

Andrei Огромное спасибо за подробное разъяснение , а ты не можешь написать как надо корректировать при чтении массива в цикле Сделала как мне предложил Stilet
Стало теперь работать

[Andrei]

Сообщение от nataly_ukr

Stilet Привет земляк , твои примочки помогли Но что-то мне от этого Edit зарябило, наверное напишу через SQL

Andrei Огромное спасибо за подробное разъяснение , а ты не можешь написать как надо корректировать при чтении массива в цикле Сделала как мне предложил Stilet
Стало теперь работать

Корректировка набора данных в цикле на примере твоего кода:

rsum:=0;
Form4.Table3.Active:=true;
Form4.Table3.First; {переход на первую запись}
  //Организуем цикл
  For i:=1 to Form4.Table3.RecordCount do
     begin
        rsum:=Form4.Table3.FieldByName('ves').AsFloat;
        Form4.Table3.Edit; {переход в режим редактирования}
        Form4.Table3.FieldByName('cena').AsFloat:=rsum;
        Form4.Table3.Post;{внесение изменений}
        Form4.Table3.Next;{переход на следующую запись}
     end;

[nataly_ukr]

Спасибо всем за помощь