Подсчет суммы в выделенных строках DBGrid

← →
TTCustomDelphiMaster © (2003-01-08 22:07) [0]

Я решаю такую задачу нужно посчитать сумму по некоромым полям выделенным в DBGrideh1.
Для этого создаю запрос такой же который отображен в DBGrideh1 и перемещаюсь по нему сравнивая текущую позицию с закладками(выделенными строками) созданными в DBGrideh1.
Тестовый пример ниже

procedure TCargosForm.Button1Click(Sender: TObject); var i: integer; begin query1.First; while not query1.Eof do begin if DBGrideh1.SelectedRows.Find(query1.Bookmark, i) then ShowMessage(query1.FieldByName(_fCargoNumber).AsString); Query1.Next; end; end;

Способ получился довольно извращенный, но других методов решения этой задачи я не нашел.
Перемещение по закладкам в DataSet связанном с DBGrideh1 в любом случае приводит к изменению отображаемых строк или столбцов.
Кто сталкивался с такой задачей и как решал ее? И как можете оценить мое решение приемлимое оно или полная лажа?

← →
gek © (2003-01-09 07:52) [1]

> в любом случае приводит к изменению отображаемых строк

Моргает что-ли?

← →
Johnmen © (2003-01-09 09:20) [2]

1. DisableControls+EnableControls
2. Пройти не по всем записям, а только по заложенным !

← →
REA © (2003-01-09 11:30) [3]

Можно засекать как то в процессе закладывания отмеченные записи и формировать запрос с агрегатными полями исходя из этой информации. Можно использовать ClientDataset и там обращаться можно к любой записи.

← →
Max Zyuzin © (2003-01-09 11:35) [4]

>TTCustomDelphiMaster © (08.01.03 22:07)
Согласен с REA © (09.01.03 11:30) Создать какой нить списочек... как только отмечаешь запись - добавляй в него (список) ключ поля... Ну а по надобности сроишь запрос исходя из ентого списка...

← →
Johnmen © (2003-01-09 11:58) [5]

>REA © (09.01.03 11:30)
>Max Zyuzin © (09.01.03 11:35)

Зачем же делать еще один список, ведь он уже есть TBookmarkList ?!

← →
MsGuns © (2003-01-09 12:07) [6]

>Johnmen © (09.01.03 09:20)
>1. DisableControls+EnableControls

Предпочтительнее отключать грид от источника, а потом опять подключать:
grid1.DataSource := nil;
побегать по НД
grid1.DataSource := DataSource1;

>2. Пройти не по всем записям, а только по заложенным !

Без комментариев

А вообще-то проще использовать доп.поле для маркировки. Для определения суммы достаточно просто дать запрос. Кстати, если поле положить в датасет невозможно, хорошо использовать TClientDataSet именно для этих целей (в смысле просмотра и пометок юзером с последующим запросом на сумму)

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

← →
Mike Kouzmine (2003-01-09 14:51) [7]

Johnmen © прав
if dbg.selectedrows.count > 0 then
begin
try
t.disablecontrols
M := t.GetBookmark;
for I := 0 to dbg.slectedrows.count - 1 do
begin
t.GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
......
end;
finally
if t.bookmarkvalid(M) then
begin
t.gotobookmark(M);
t.freebookmark(m);
t.enablecontrols;
end;
end

← →
MsGuns © (2003-01-09 15:36) [8]

>Mike Kouzmine (09.01.03 14:51)
>Johnmen © прав

Не совсем ! Если нд не детал и нет активных фильтров, то да. Если же есть, то DisableControl очень и очень удивит ;))

← →
Mike Kouzmine (2003-01-09 15:39) [9]

Верно. Согласен

2 REA©

> ...засекать... отмеченные записи и формировать запрос...

Нельзя ли поподробнее: есть список (TList, TBookmarkList - неважно) идентификаторов строк, как теперь сформировать на его основе запрос?

Оч просто заносите в TList ID данной таблицы, а потом по ним делайте запрос. Только интерфейс для выделения строк в Gride придется делать сомому.

"Подправить" DBGrideh (DoSelection и пр.), добавить обработчик
DBGrideh.onSelect(Select: boolean, DataSet: TDataSet) и наслаждаться жизнью :-)

Подсчет суммы в выделенных строках DBGrid Найти похожие ветки