VPF::Как посчитать сумму выделеных ячеек DBGrid

Snickbw

Дата 10.11.2006, 08:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

В Excel есть прибамбас, выделяем ячейки и если они числовые то в низу считается сумма всех выделеных ячеек.
Вопрос: как реализовать такую же возможность в DBGrid (DBGridEh).

В DBGridEh из библиотеки EhLib выделить отдельные ячейки просто, а вот как посчитать сумму этих ячеек не перебирая весь TDataSet к которому подключен DBGrid?

Akella

Дата 10.11.2006, 09:23 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 29
Всего: 329

Пример, как работать с выделенными ячейками

Код


 procedure TfmMain.OtborByEhGrid(FromGrid,ToGrid:TDBGridEh);
 var
  ASelectionType: TDBGridEhSelectionType;
  i:Integer;
 begin
   if (FromGrid = nil) or (ToGrid = nil) then Exit;

   Screen.cursor := crSQLWait;
   with FromGrid, FromGrid.datasource.dataset do
   try
    DisableControls;
    SaveBookmark;
    ASelectionType := Selection.SelectionType;

    case ASelectionType of
      gstRecordBookmarks: begin
        for i := 0 to  Selection.Rows.Count - 1 do begin
            Bookmark := Selection.Rows[I];
            OtborOneRecord(FromGrid.datasource.dataset, (ToGrid as TDBGridEh).datasource.dataset);
         end;
        Selection.Clear;
      end;

      gstRectangle:       begin
        Bookmark := Selection.Rect.TopRow;
        while True do begin
          OtborOneRecord(FromGrid.datasource.dataset, (ToGrid as TDBGridEh).datasource.dataset);
          if DataSetCompareBookmarks(FromGrid.DataSource.Dataset, Selection.Rect.BottomRow, Bookmark) = 0 then Break;
          Next;
          if Eof then Break;
        end;//while

      end;

      gstAll, gstColumns: begin
        first;
        while not eof do begin
          OtborOneRecord(FromGrid.datasource.dataset, (ToGrid as TDBGridEh).datasource.dataset);
          next;
        end;
      end;

      gstNon:             begin
        OtborOneRecord(FromGrid.datasource.dataset, (ToGrid as TDBGridEh).datasource.dataset);
      end;

    end;//case
   finally
    RestoreBookmark;
    EnableControls;
    Screen.cursor := crDefault;
   end;//try-finally
 end;

Snickbw

Дата 10.11.2006, 18:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Ok. Спасибо.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »