Как посчитать сумму нескольких выделеных в DBGrid позиций?
использую ado.

очень смешно!

Транспортный оператор выбирает документы из перечня для развоза по клиентам, он должен распределить документы оптимально по вместительности машин, для этого необходимо показывать ему суммы веса и обьем после каждого изменения выделеных позиций в DBGrid

считаю так

procedure TForm1.UpdateS();
var
i, j: Integer;
s: Integer;
AQ: TADOQuery;
TB :TBookmarkList;
begin

AQ := ADOQuery1;
TB := DBGrid1.SelectedRows;


if TB.Count>0 then
begin
s:= 0;

for i:=0 to TB.Count-1 do
begin
AQ. GotoBookmark (pointer(TB.Items ));
s := s + AQ.FieldByName('quantity').Value ;
end;

edit2.Text := inttostr(s);
end;
end;

при этом команда gotoBookmark заставляет дергать указатель, а это
блин отображается на гриде плюс, когда позиций туева хуча, процедура начинает тормозить.

Вопрос можно ли взять данные с грида по другому, например как со стринггрида Cells[5,i] ?

Попробовал, понял, но проблема осталась
пересчет производится по событию OnKeyUp
и когда юзер подымает эту гадкую кнопку
//////////////////////////////////////////////////////////////////////////
procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
var

p : pointer;
c : Currency;
i : integer;
CopyrDataSet: TDataSet;
CopyrSelectedRows: TBookmarkList;
begin

CopyrDataSet := DBGrid1.DataSource.DataSet;
CopyrSelectedRows := DBGrid1.SelectedRows ;

if CopyrSelectedRows.Count > 0 then
begin
DBgrid1.DataSource.DataSet.DisableControls;
p := pointer(DBGrid1.DataSource.DataSet.Bookmark);
for i := 0 to CopyrSelectedRows.Count - 1 do
begin
DBgrid1.DataSource.DataSet.DisableControls;
DBGrid1.DataSource.DataSet.GotoBookmark(pointer(DBGrid1.SelectedRows.Items ));
DBgrid1.DataSource.DataSet.EnableControls ;
c := c + DBGrid1.DataSource.DataSet.FieldByName('sum').Value;
end;
DBGrid1.DataSource.DataSet.GotoBookmark(p);
DBgrid1.DataSource.DataSet.EnableControls ;
end
else
begin
c := 0;
end;
end;
//////////////////////////////////////////////////////////////////////////
DBGrid уже не дергаясь считает суммы
и потом ставит текущюю позицию в середину
и оператор , по его словам ее теряет и долго исчет ее глазами

может скопировать recordset из AdoQuerty и в нем попрыгать по записям дабы на трогать видимый указатель? Только как это сделать может подскажете