Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Вниз

Посчитать сумму столбца   Найти похожие ветки 

 
Антон.   (2003-02-14 09:40) [0]

Есть таблица с фильтром, каждый раз при использовании филльтра нужно указывать сумму по оставшимся записям, делаю так
procedure TdmBase.dsPostAfterOpen(DataSet: TDataSet);
begin
with dsSumm do
begin
Params.ParamByName("F_num_kvit").Value:=dsPost.Params.ParamByName("F_num_kvit").Value;
Params.ParamByName("F_name_prod").Value:=dsPost.Params.ParamByName("F_name_prod").Value;
Params.ParamByName("F_num_razn").Value:=dsPost.Params.ParamByName("F_num_razn").Value;
Params.ParamByName("F_num_post").Value:=dsPost.Params.ParamByName("F_num_post").Value;
Params.ParamByName("F_weight").Value:=dsPost.Params.ParamByName("F_weight").Value;
Params.ParamByName("F_num_trail").Value:=dsPost.Params.ParamByName("F_num_trail").Value;
Params.ParamByName("Id_post").Value:=dsPost.Params.ParamByName("Id_post").Value;
Params.ParamByName("Id_razn").Value:=dsPost.Params.ParamByName("Id_razn").Value;
Params.ParamByName("Id_razn_poz").Value:=dsPost.Params.ParamByName("Id_razn_poz").Value;
dsSumm.Active;
// SummVes:=
end;
end;

CommandText dsSumm
select /*+rule*/

sum(WEIGHT),

from CHANGE.KVIT_WITH_SHIP
where
REC_STATUS = 0 and
(
upper(NUM_KVIT) like upper(:F_num_kvit) or
upper(NAME_PROD) like upper(:F_name_prod) or
upper(NUM_RAZN) like upper(:F_num_razn) or
upper(NUM_POST) like upper(:F_num_post) or
upper(WEIGHT) like upper(:F_weight) or
upper(NUM_TRAIL) like upper(:F_num_trail)
)
and IS_EXP = nvl(:Id_post,IS_EXP)
and NUM_RAZN = nvl(upper(trim(:Id_razn)),upper(trim(NUM_RAZN)))
and POZ_RAZN = nvl(upper(trim(:Id_razn_poz)),upper(trim(POZ_RAZN)))

как мне вытащить потом это поле


 
Johnmen   (2003-02-14 09:59) [1]

Короче и яснее, если сможешь...


 
Sergey13   (2003-02-14 10:02) [2]

Удобная штука для суммирования по датасету есть в EhLib.
http://www.farpost.com/personal/dmitryb/RUS/default.htm
SumList вроде называется. Или прямо в ихнем гриде можно итоги подбивать.

Слушай, а у тебя что, все поля в строках хранятся? И сколько времени этот запрос работает? Странная таблица какая то.


 
Антон.   (2003-02-14 11:56) [3]

Sergey13 © (14.02.03 10:02)
Нужно написать свое

Johnmen © (14.02.03 09:59)
На событие AfterOpen исходного датасета вешаю копирование параметров фильтра и подставляю свой command text с суммированием а как вытащить результат не понимаю


 
Johnmen   (2003-02-14 12:07) [4]

Откуда вытащить ?


 
Антон.   (2003-02-14 12:14) [5]

из dsSumm


 
Антон.   (2003-02-14 12:19) [6]

У меня получилось, спасибо


 
Johnmen   (2003-02-14 12:22) [7]

М-дя... А как ты вообще работаешь с наборами данных ???????
Как считать значение поля из текущей записи НД ??????
По-моему, надо бы поизучать книжки, доки и т.п.
:)))))


 
Антон.   (2003-02-14 13:13) [8]

А что такое набор данных?


 
Anatoly Podgoretsky   (2003-02-14 13:21) [9]

Ну тебе же сказали где про это хорошо разжевано, в книжках



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

Форум: "Базы";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.008 c
14-17365
Dracula2000
2003-02-18 16:34
2003.03.06
Service pack for Delphi 5


4-17445
skovorodka
2003-01-18 19:05
2003.03.06
SetWindowsHookEx( всем пойматься и ответить :) )


1-17145
Sherbacov
2003-02-23 01:28
2003.03.06
Глупый вопрос


14-17320
Saracin
2003-02-16 12:05
2003.03.06
Где можно найти описание InstallShield Express статьи, книги,...


6-17237
Anton
2003-01-17 14:10
2003.03.06
Что нибудь еще нужно для коннекта кроме Hosta и Porta для idPop3





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский