Вычисляемое поле в DBGrid

[Plato]

Есть 2 таблицы DBGrid.
Каждая расположена на отдельном TabSheet.
Вычисляемое прописываю так:

Код: Выделить всё

procedure TForm1.SQLQuery3CalcFields(DataSet: TDataSet);
begin
  SQLQuery3Summa1.AsInteger:=SQLQuery3LongintField.AsInteger*SQLQuery2LongintField.AsInteger;
end;

Проблема в том, что вычисляется не правильно.
SQLQuery3Summa1=Summa
SQLQuery3LongintField=Количество
SQLQuery2LongintField=Цена за штуку


На просторах нашёл только :

Warning:
When the dataset is the master table of a master-detail relationship, OnCalcFields occurs before detail sets have been synchronized with the master table.

[sign]

Почему не пользуетесь вычисляемым полем и его OnGetText(Sender: TField; var aText: string; DisplayText: Boolean);
Получите правильный результат:

Код: Выделить всё

  procedure TDM.SQLQuery1r2_1GetText(Sender: TField; var aText: string; DisplayText: Boolean);
begin
  aText := SQLQuery3LongintField.AsInteger * SQLQuery2LongintField.AsInteger;
end;



1.jpg

2.jpg

[7bit]

Правильный результат получите, если поля будут в одном датасете. Добавьте поле "Цена за штуку" в SQLQuery3.

[Plato]

Почему не пользуетесь вычисляемым полем и его OnGetText(Sender: TField; var aText: string; DisplayText: Boolean);
Получите правильный результат:
КОД: ВЫДЕЛИТЬ ВСЁ
  procedure TDM.SQLQuery1r2_1GetText(Sender: TField; var aText: string; DisplayText: Boolean);
begin
  aText := SQLQuery3LongintField.AsInteger * SQLQuery2LongintField.AsInteger;
end;

Выдаёт ошибку :

Код: Выделить всё

Error: Incompatible types: got "LongInt" expected "AnsiString"


[sign]

Ну, а кто за вас будет преобразовывать тип - aText := IntToStr(...)?

Хм. Я то подумал, что намёка достаточно. Оказывается, нет.

[Plato]

Ну, а кто за вас будет преобразовывать тип - aText := IntToStr(...)?

Хм. Я то подумал, что намёка достаточно. Оказывается, нет.

В результате всё осталось как и было. Количество всегда умножается на 4.

Код: Выделить всё

aText:=IntToStr(SQLQuery3LongintField.AsInteger*SQLQuery2LongintField.AsInteger);

[Vapaamies]

Количество всегда умножается на 4.

Так правильно, на первой же записи стоим, никуда не двигаемся.

[svk12]

Мастер-деталь тут не при чём. Надо делать соединение двух таблиц - явный JOIN:

Код: Выделить всё

SELECT  A.Дата,A.Наименование товара,A.Имя клиента,A.Количество,A.Количество * B.Цена за штуку AS Summa
FROM Заказы A  JOIN Товары B  ON B.Наименование товара = A.Наименование товара

Или неявный:

Код: Выделить всё

SELECT  A.Дата,A.Наименование товара,A.Имя клиента,A.Количество,A.Количество * B.Цена за штуку AS Summa
FROM Заказы A  ,Товары B  WHERE B.Наименование товара = A.Наименование товара