DBLookupComboBox1

← →
Fr1K © (2008-03-20 09:48) [0]

Я получаю значения полей "SUMMA" в DBLookupComboBox1 как мне подсчитать все значения в DBLookupComboBox1

← →
Johnmen © (2008-03-20 09:57) [1]

Шо, опять???
http://delphimaster.net/view/2-1205907552/

← →
Fr1K © (2008-03-20 10:10) [2]

да никак не могу решить проблему с подсчётом ячеек... как правильно нудно считать в DBGr1d?

← →
zorik © (2008-03-20 10:42) [3]

Напиши какие у тебя там таблицы БД (структуру), как они связаны, какие компоненты доступа (Table, Query, ...), и что нужно получить, а не "сума в комбобокс". Может тебе и не надо эту суму именно в комбобокс сунуть.

← →
Fr1K © (2008-03-20 11:03) [4]

Вообщем есть таблица data.dbf в ней есть Ячейки ("№ Накладной", "Организация", "Сумма накладной"). Нужно все ячеки из "сумма" посчитать и вывести результат. компоненты свзаны с Table. Query кинул но по SQL связать не получаетса.

← →
Ega23 © (2008-03-20 11:18) [5]

Вариант 1.
Select Sum(То+что_надо_подсчитать) as Summa from Table
Вариант2.
function GetColumnSumValue(ds : TDataSet;const FieldName : string) : Integer; var bm : TBookmark; begin Result := 0; with ds do begin if not Active then Exit; if IsEmpty then Exit; bm := GetBookmark; DisableControls; try First; Result := FieldByName(FieldName).AsInteger; Next; While not (Eof) do begin Result := Result + FieldByName(FieldName).AsInteger; Next; end; finally GotoBookmark(bm); FreeBookmark(bm); EnableControls; end; end; end;

Для остальных типов - сам поправишь.

← →
Fr1K © (2008-03-20 11:34) [6]

И есть же всё таки добрые люди на свете. Спасибо Ega23.
У меня остался один вопрос как теперь подсчитать ("№ Накладной", "Организация", "Сумма накладной") , только другая таблица ("Сумма", "Нал", "Безнал", "Долг")
как мне теперь получить Долг. Долг = Сумма-Нал-Безнал. вот

← →
Johnmen © (2008-03-20 11:35) [7]

> Ega23 © (20.03.08 11:18) [5]

Это из реальной программы???

← →
Johnmen © (2008-03-20 11:36) [8]

Ё-моё, да это просто разводка :)))

← →
Fr1K © (2008-03-20 11:42) [9]

Нет это реальная программа. могу дать исходник... меня попросили для склада написать....
у меня ещё вопрос как сделать чтоб ячейку "СУММА" считала не только целые числа а и типа 15000,38
Edit1.Text:= FloatToStr(GetColumnSumValue(Table1,"HOUSE")); не помогает

← →
Ega23 © (2008-03-20 11:44) [10]

> Это из реальной программы???

Нет. Тупо написал подсчёт суммы.

← →
Ega23 © (2008-03-20 11:45) [11]

> У меня остался один вопрос как теперь подсчитать ("№ Накладной",
> "Организация", "Сумма накладной") , только другая таблица
> ("Сумма", "Нал", "Безнал", "Долг")
> как мне теперь получить Долг. Долг = Сумма-Нал-Безнал. вот
>

Надо чуть-чуть подумать, почитать хелп и книжки.

> у меня ещё вопрос как сделать чтоб ячейку "СУММА" считала
> не только целые числа а и типа 15000,38
> Edit1.Text:= FloatToStr(GetColumnSumValue(Table1,"HOUSE"));
> не помогает

И не поможет. Надо чуть-чуть подумать, почитать хелп и книжки.

← →
Johnmen © (2008-03-20 11:56) [12]

> Ega23 © (20.03.08 11:44) [10]
> Нет. Тупо написал подсчёт суммы.

Ну если тупо, тогда успокоил :)))

← →
Fr1K © (2008-03-20 12:02) [13]

to Johnmen а ты случайно помочь не можеш в моём вопросе

← →
Fr1K © (2008-03-20 14:00) [14]

так что никак нельзя посчитать сумму(чтоб в сумму входили числа с запятой)

← →
Сергей М. © (2008-03-20 14:02) [15]

А чем тебе запятые помешали ?

← →
Fr1K © (2008-03-20 14:09) [16]

Ни с запятыми ни с точками он считать не хочит только Целые числа считает.

← →
Сергей М. © (2008-03-20 14:11) [17]

> считать не хочит

Что, вот прямо так и говорит - "не хочу считать ни с запятыми ни с точками" ?

← →
Fr1K © (2008-03-20 14:13) [18]

> Ни с запятыми ни с точками он считать не хочит только Целые
> числа считает.

1200,77 is Not Valid Integer Value

как я понимаю это потому что в функции указано
Result := Result + FieldByName(FieldName).AsInteger;

но никак не получаетса по другому :(

← →
Сергей М. © (2008-03-20 14:15) [19]

> никак не получаетса по другому

Т.е. написать AsFloat вместо AsInteger у тебя рука не поднимается ?

← →
Сергей М. © (2008-03-20 14:16) [20]

> Query кинул но по SQL связать не получаетса

Не даетса ?

← →
Fr1K © (2008-03-20 14:19) [21]

да еслиб она там была яб давно поставил бы... там только AsInteger и AsVariant

← →
Сергей М. © (2008-03-20 14:21) [22]

> еслиб она там была

Кто "она" ? Где "там" ?

← →
Fr1K © (2008-03-20 14:23) [23]

я так поняимаю проболема в этой строке Result := Result + FieldByName(FieldName).AsInteger; точнеей в переменной AsInteger
но кроме AsInteger и AsVariant там нет больше других

← →
Ega23 © (2008-03-20 14:24) [24]

> но кроме AsInteger и AsVariant там нет больше других

Милое дитя, какой тип данных возвращает функция?

← →
Fr1K © (2008-03-20 14:26) [25]

Ega23 Еслиб я знал ответ на эттот вопрос яб не спрашивал! Так есть ли этому какоето решение?

← →
Сергей М. © (2008-03-20 14:27) [26]

> в переменной AsInteger

Какой такой "переменной" ? Это свойство объекта, а не переменная !

> кроме AsInteger и AsVariant там нет больше других

Ты суслика видишь ? И я не вижу. А он есть !)

Напиши AsFloat вместо AsInteger ручками и убедись в наличии суслика)

← →
Fr1K © (2008-03-20 14:31) [27]

Да писал уже я... начинает ругатса... Incompatible types: "Integer" and "Extended"

← →
Сергей М. © (2008-03-20 14:32) [28]

> Fr1K © (20.03.08 14:31) [27]

И что ? Ни на какие мысли это не наводит разве ?

Наводит на то только что Float не тот тип. А решение ему найти не могу

> Наводит на то только что Float не тот тип. А решение ему
> найти не могу

Не ребята, я пас.

> Float не тот тип

Как это не тот ? Самый что ни на есть тот)
Но складывать нужно однотипные данные !
А ты что с чем складываешь ? Ты складываешь float-значение с integer-значением !

Опять никаких мыслей ?)

ну вот функция что дал Ega23
function GetColumnSumValue(ds : TDataSet;const FieldName : string) : Integer; var bm : TBookmark; begin Result := 0; with ds do begin if not Active then Exit; if IsEmpty then Exit; bm := GetBookmark; DisableControls; try First; Result := FieldByName(FieldName).AsInteger; Next; While not (Eof) do begin Result := Result + FieldByName(FieldName).AsInteger; Next; end; finally GotoBookmark(bm); FreeBookmark(bm); EnableControls; end; end;

Ну что мне надо сделать чтоб читал числа с запятой... я не могу ваще понять

Прямо таки напрашивается оффтоп:

"- Мы поднимаем алое знамя,
Просто другого цвета не знаем !
- Если не знаешь чего поднимать,
Что же ты лезешь, ... мать ?!
"
(с) "Оба-на !", Гимн пионерии, Угольников и Ко

я не пойму в чём я издеваюсь! я спрашую конкретный вопрос на который не могу найти ответ!!! <Johnmen/B> а ты я смотрю только коментируешь здеь и всё ни одного ответа от тебя по делу нет

Ответьте на вопрос. как мне сделать подсчёт чисел с запятой! причём тут офтоп

Хорошо, зайдем на цель с другой стороны луны)

Функция FloatToStr (тобой, кстати, впервые упомянутая в теме) какой тип данных требует в кач-ве параметра ?

Ну Value:Extanded вроде какбы

> Value:Extanded вроде какбы

Ну и ?!

А ты что ей тычешь вместо Extended ?

ну а как правильно прописать тогда?

DBLookupComboBox1 Найти похожие ветки