| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
DBLookupComboBox1 [D7, dBase, FoxPro]
Fr1K © (2008-03-20 09:48:00)
Страницы: < 1 2 ... 10 11 12 13 14 15 16 17 18 19 >
Я получаю значения полей 'SUMMA' в DBLookupComboBox1 как мне подсчитать все значения в DBLookupComboBox1
Fr1K (2008-03-20 14:23:00) [341]я так поняимаю проболема в этой строке Result := Result + FieldByName(FieldName).AsInteger;точнеей в переменной AsInteger
но кроме AsInteger и AsVariant там нет больше других
Сергей М. (2008-03-20 14:21:00) [342]
> еслиб она там была
Кто "она" ? Где "там" ?
Fr1K (2008-03-20 14:19:00) [343]да еслиб она там была яб давно поставил бы... там только AsInteger и AsVariant
Сергей М. (2008-03-20 14:16:00) [344]
> Query кинул но по SQL связать не получаетса
Не даетса ?
Сергей М. (2008-03-20 14:15:00) [345]
> никак не получаетса по другому
Т.е. написать As Floatвместо AsInteger у тебя рука не поднимается ?
Fr1K (2008-03-20 14:13:00) [346]
> Ни с запятыми ни с точками он считать не хочит только Целые
> числа считает.
1200,77 is Not Valid Integer Value
как я понимаю это потому что в функции указано
Result := Result + FieldByName(FieldName). AsInteger;
но никак не получаетса по другому :(
Сергей М. (2008-03-20 14:11:00) [347]
> считать не хочит
Что, вот прямо так и говорит - "не хочу считать ни с запятыми ни с точками" ?
Fr1K (2008-03-20 14:09:00) [348]Ни с запятыми ни с точками он считать не хочит только Целые числа считает.
Сергей М. (2008-03-20 14:02:00) [349]А чем тебе запятые помешали ?
Fr1K (2008-03-20 14:00:00) [350]так что никак нельзя посчитать сумму(чтоб в сумму входили числа с запятой)
Fr1K (2008-03-20 12:02:00) [351]to Johnmen а ты случайно помочь не можеш в моём вопросе
Johnmen (2008-03-20 11:56:00) [352]
> Ega23 © (20.03.08 11:44) [10]
> Нет. Тупо написал подсчёт суммы.
Ну если тупо, тогда успокоил :)))
Ega23 (2008-03-20 11:45:00) [353]
> У меня остался один вопрос как теперь подсчитать ('№ Накладной',
> 'Организация', 'Сумма накладной') , только другая таблица
> ('Сумма', 'Нал', 'Безнал', 'Долг')
> как мне теперь получить Долг. Долг = Сумма-Нал-Безнал. вот
>
Надо чуть-чуть подумать, почитать хелп и книжки.
> у меня ещё вопрос как сделать чтоб ячейку 'СУММА' считала
> не только целые числа а и типа 15000,38
> Edit1.Text:= FloatToStr(GetColumnSumValue(Table1,'HOUSE'));
> не помогает
И не поможет. Надо чуть-чуть подумать, почитать хелп и книжки.
Ega23 (2008-03-20 11:44:00) [354]
> Это из реальной программы???
Нет. Тупо написал подсчёт суммы.
Fr1K (2008-03-20 11:42:00) [355]Нет это реальная программа. могу дать исходник... меня попросили для склада написать....
у меня ещё вопрос как сделать чтоб ячейку 'СУММА' считала не только целые числа а и типа 15000,38
Edit1.Text:= FloatToStr(GetColumnSumValue(Table1,'HOUSE')); не помогает
Johnmen (2008-03-20 11:36:00) [356]Ё-моё, да это просто разводка :)))
Johnmen (2008-03-20 11:35:00) [357]
> Ega23 © (20.03.08 11:18) [5]
Это из реальной программы???
Fr1K (2008-03-20 11:34:00) [358]И есть же всё таки добрые люди на свете. Спасибо Ega23.
У меня остался один вопрос как теперь подсчитать ('№ Накладной', 'Организация', 'Сумма накладной') , только другая таблица ('Сумма', 'Нал', 'Безнал', 'Долг')
как мне теперь получить Долг. Долг = Сумма-Нал-Безнал. вот
Ega23 (2008-03-20 11:18:00) [359]Вариант 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:03:00) [360]Вообщем есть таблица data.dbf в ней есть Ячейки ('№ Накладной', 'Организация', 'Сумма накладной'). Нужно все ячеки из 'сумма' посчитать и вывести результат. компоненты свзаны с Table. Query кинул но по SQL связать не получаетса.
| |
