Вниз
Скачать: CL | DM;

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

 
Rafe   (2003-12-21 21:39) [0]

Добрый день! Существует ли какой-нибудь способ просчета суммы значений какого-либо поля выделенных строк в гриде, и чтобы все это просиходило в реальном времени. Т. е. хочется сделать так, чтобы по мере выделения пользователем строк считалась сумма значений какого-либо поля выделенных в данный момент строк.
Есть способ:

For i:=0 to Form1.DBGrid1.SelectedRows.Count-1 do
begin
Form1.DBGrid1.DataSource.DataSet.GotoBookmark(pointer(Form1.DBGrid1.SelectedRows.Items[i]));

/* и так в цыкле перебирать значение и суммировать

end;

Но при таком способе сбивается курсор при возвращении курсора на первоначальное значение методом Locate, возникает смещение курсора на центр грида, что не очень хорошо.
Кстати я в место обычного DBGrid использую DBGridEh. Может с его помощью можно как-то решить получше.
Подскажите пожалуйста, наверника кто-то решал такую задачу.


 
Ega23 ©   (2003-12-22 10:34) [1]


> For i:=0 to Form1.DBGrid1.SelectedRows.Count-1 do
> begin
Form1.DBGrid1.DataSource.DataSet.DisableControls;
> Form1.DBGrid1.DataSource.DataSet.GotoBookmark(pointer(Form1.DBGrid1.SelectedRows.Items[i]));

.....
//После Locate

Form1.DBGrid1.DataSource.DataSet.EnableControls;



 
Плохиш_   (2003-12-22 10:40) [2]

>Ega23 © (22.12.03 10:34) [1]

1. DisableControls до цикла, а EnableControls после возврата на первоначальную запись

2. возникает смещение курсора на центр грида Это не решает.


 
Johnmen ©   (2003-12-22 10:46) [3]

>Rafe

Обработать события клавиатуры и мыши (DBGrid1), могущие привести к изменению количества выделенных записей.
Если такое событие приводит к изм-ю кол-ва записей, то соответственно корректировать предварительно заведенную переменную для суммы значений...


 
Sandman25 ©   (2003-12-22 10:49) [4]

[3] Johnmen © (22.12.03 10:46)

Развитием этой идеи будет наследование от DBGridEh с добавлением нового события SelectedRowsChanged.


 
Ega23 ©   (2003-12-22 10:49) [5]


> Плохиш_ (22.12.03 10:40) [2]

Да, промазал со вставкой. Всё верно говоришь.


 
Johnmen ©   (2003-12-22 10:56) [6]

>Sandman25 © (22.12.03 10:49)

Совершенно верно. Но, видимо, автору ещё рано про это :)



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c
1-49616
YuN
2004-01-05 02:50
2004.01.16
Что за бред? С каких пор у Tcontrol нет св-ва Caption?


7-49794
Геннадий
2003-11-03 15:50
2004.01.16
Детектирование режима работы монитора: оконный/полноэкранный


6-49663
postx
2003-11-14 22:35
2004.01.16
Как узнать, существует ли e-mail?


1-49543
perova
2004-01-02 13:03
2004.01.16
Подскажите, пожалуйста, в чем отличаются Delphi Professional,


1-49584
Viking
2004-01-05 14:59
2004.01.16
Работа с Object Repository




   Наверх