[rs219]

У меня есть таблица. состоит из: имя, есть топлива, расход топлива, осталось топлива. Возможно сделать так, что бы значение из поля осталось топлива по нажатию на кнопку, переносилось в поле есть топлива. Я сделал еще одну таблицу: "код; осталось топлива." Т.е. значение из поля осталось первой таб. перноситься во вторую табл, а оттуда уже снова в первую, только в другое поле. Такое можно сделать. Вы не могли бы мне помочь?
... - остаток топлива на начало - изменение, расход топлива - остаток топлива на конец - ...

или похожее на это, возможно как то по другому, ....

[nixel]

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

[poli-smen]

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

У меня есть таблица. состоит из: имя, есть топлива, расход топлива, осталось топлива. Возможно сделать так, что бы значение из поля осталось топлива по нажатию на кнопку, переносилось в поле есть топлива. Я сделал еще одну таблицу: "код; осталось топлива." Т.е. значение из поля осталось первой таб. перноситься во вторую табл, а оттуда уже снова в первую, только в другое поле. Такое можно сделать. Вы не могли бы мне помочь?
... - остаток топлива на начало - изменение, расход топлива - остаток топлива на конец - ...

или похожее на это, возможно как то по другому, ....

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Table2.Append;
  Table2.FieldByName('осталось топлива').AsFloat := Table1.FieldByName('осталось топлива').AsFloat;
  Table2.Post;

  Table1.Edit;
  Table1.FieldByName('есть топлива').AsFloat := Table2.FieldByName('осталось топлива').AsFloat;
  Table1.Post;
end;

[rs219]

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

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

delphi
и access
/ На примере покажите пожалуйста.

[nixel]

Примерно таким запросом:

Код:

UPDATE Table1
SET a1 = (SELECT a2 FROM Table1)

, где Table1 - имя нашей таблицы в бд, а1 - имя столбца с "осталось топлива", а2 - имя столбца с "есть топлива".

На всякий случай, при уникальности имени, можно во второй селект добавить предложение запроса WHERE Table1.Name = Table1.Name, т.е. примерно так:

Код:

UPDATE Table1
SET a1 = (SELECT a2 FROM Table1 WHERE Table1.Name = Table1.Name)

но думаю, что это будет излишним.

p.s. Так же, возможно, что в конце надо будет написать GO
но это уже зависит от того, где будете выполнять запрос.

[Страдалецъ]

Неправильная изначально постановка задачи. Если какое-либо значение в БД возможно вычислить используя данные таблиц, то результат этих вычислений никогда не надо заносить в отдельную таблицу. Если нарушить это правило, то рано или поздно вы наступите на грабли рассинхронизации данных. Скорее всего у вас просто несколько неверная структура БД, вот потому и проблемы с запросом.

[rs219]

Сообщение от poli-smen

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Table2.Append;
  Table2.FieldByName('осталось топлива').AsFloat := Table1.FieldByName('осталось топлива').AsFloat;
  Table2.Post;

  Table1.Edit;
  Table1.FieldByName('есть топлива').AsFloat := Table2.FieldByName('осталось топлива').AsFloat;
  Table1.Post;
end;

datamodule2.ADOTable1.FieldByName('ostatok').AsFlo at:= datamodule2.ADOTable3.FieldByName('остаток').AsFlo at;

- это строка долна пприравнять значение поля "остаток" полю "ostatok", но оно выдает ошибку, что ADOTable1. не может редактировать или всталять строки,
*???

[poli-smen]

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

datamodule2.ADOTable1.FieldByName('ostatok').AsFlo at:= datamodule2.ADOTable3.FieldByName('остаток').AsFlo at;

- это строка долна пприравнять значение поля "остаток" полю "ostatok", но оно выдает ошибку, что ADOTable1. не может редактировать или всталять строки,
*???

Я что, зря написал?:

Код:

Table1.Edit;

[rs219]

Сообщение от poli-smen

Я что, зря написал?:

Код:

Table1.Edit;

.........ой