Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вычислить сумму ), Програмно в excell 
:(
    Опции темы
Mr_Dmitry
Дата 28.5.2007, 15:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 6.5.2007

Репутация: нет
Всего: нет
Вообщем такая закгвостка В Excel были экспортированы данные из бд теперь нужно найти сумму двух полей!
Я делаю вот так:
Код

    i:=4;
    DataModule1.table3.First;
    while not DataModule1.table3.eof do
      sheets.cells[i,1]:=DataModule1.Table3.FieldByName('Data').AsString;
      sheets.cells[i,2]:=DataModule1.Table3.FieldByName('Post').AsString;
      sheets.cells[i,3]:=DataModule1.Table3.FieldByName('Tovar').AsString;
      sheets.cells[i,4]:=DataModule1.Table3.FieldByName('Kol_vo').AsInteger;
      sheets.cells[i,5]:=DataModule1.Table3.FieldByName('Summa').AsString;
      sheets.cells[i+1,4]:='Ñóììà';
      sheets.cells[i+1,5]:=StrToFloat(sheets.cells[i,5])+StrToFloat(sheets.cells[i,5]);
      Inc(i);
      DataModule1.table3.Next;
      end;

Но так суммируеться только последняя запись а мне нужно чтоб суммировались все числа из этого столбца!

Это сообщение отредактировал(а) Alexeis - 28.5.2007, 15:32
PM MAIL   Вверх
Savek
Дата 28.5.2007, 15:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 355
Регистрация: 10.4.2006
Где: Воронеж

Репутация: нет
Всего: 7
Что-то непонятное у тебя в коде, надо примерно так
Код

    i:=4;
    DataModule1.table3.First;
    while not DataModule1.table3.eof do begin
      sheets.cells[i,1]:=DataModule1.Table3.FieldByName('Data').AsString;
      sheets.cells[i,2]:=DataModule1.Table3.FieldByName('Post').AsString;
      sheets.cells[i,3]:=DataModule1.Table3.FieldByName('Tovar').AsString;
      sheets.cells[i,4]:=DataModule1.Table3.FieldByName('Kol_vo').AsInteger;
      sheets.cells[i,5]:=DataModule1.Table3.FieldByName('Summa').AsString;
      MySum:=MySum+DataModule1.Table3.FieldByName('Summa').AsCurrency
      Inc(i);
      DataModule1.table3.Next;
      end;

      sheets.cells[i,4]:='Сумма';
      sheets.cells[i,5]:=CurrToStr(MySum);
PM MAIL   Вверх
Mr_Dmitry
Дата 28.5.2007, 17:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 6.5.2007

Репутация: нет
Всего: нет
Так тоже не работает! получаеться вот так

Цена
782
9729
Сумма 276 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0462 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.