VPF::Копирование из сетки Quantum Grid - Форум программистов

offline

Дата 24.9.2009, 22:53 (ссылка)

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

Загрузка ...

Опытный

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

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

Подскажите, есть набор данных который выводит значения в сетку Quantum Grid.
Если производить выборку из набора данных не с помощью запроса, а с помощью средств Quantum Grid, то все работает отлично, но вот при попытке скопировать отфильтрованные значения, разумеется будет копироваться все значения из набора данных, т.к. фильтрация происходит визуально при помощи Quantum Grid. Подскажите, как скопировать то, что отображает Quantum Grid, как обратиться к этим значениям?

вот пример кода для набора данных

Код


TabKlient - набор данных
s - строковая переменная
TabKlient.First;
while not TabKlient.Eof do begin
   Application.ProcessMessages;;
   s := TabKlientID.AsString + ' - ' +
          TabKlientName.AsString + ' - ' +
          TabKlientGorod.AsString;
  TabKlient.Next;
end;

Вот как что то подобное реализовать для данных, что отображает Quantum Grid.

former

Дата 25.9.2009, 02:09 (ссылка)

(голосов:1)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

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

Цитата(offline @ 24.9.2009, 22:53

)

Если производить выборку из набора данных не с помощью запроса, а с помощью средств Quantum Grid, то все работает отлично, но вот при попытке скопировать отфильтрованные значения, разумеется будет копироваться все значения из набора данных, т.к. фильтрация происходит визуально при помощи Quantum Grid.

offline, во вьюхе DataController -> Filter -> AutoDataSetFilter -> true.

Это сообщение отредактировал(а) former - 25.9.2009, 02:17

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Akella

Дата 25.9.2009, 07:53 (ссылка)

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

Загрузка ...

Творец

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

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

Цитата(offline @ 24.9.2009, 22:53

)

Подскажите, как скопировать то, что отображает Quantum Grid, как обратиться к этим значениям?

Код


Var
 i: integer;
 ARowIndex: Integer;
 ARowInfo:  TcxRowInfo;
begin
 with dbgMail.dataController do
  begin
    beginupdate;
    try
      for I := 0 to GetSelectedCount - 1 do
        begin
          ARowIndex := GetSelectedRowIndex(I);
          ARowInfo  := GetRowInfo(ARowIndex);
          if ARowInfo.Level < Groups.GroupingItemCount then
            Continue
          else
            begin

             //редактируем
              edit;
              Values[ARowInfo.RecordIndex, dbgMailRECIPIENT.Index] := бла-бла-бла;
              post;

               //или читаем значение
               ShowMessage(Values[ARowInfo.RecordIndex, dbgMailRECIPIENT.Index]);

            end;//else
        end;//for
    finally
      endupdate;
    end;//try
  end;//with

Маленький нюанс. В событии OnShow окна требуется добавить код:

Код


  with dbgMail do
    if DataController.RecordCount > 0 then
      Controller.FocusedRow.Selected := True;

Для чего?
Когда открывается окно, то запись как бы и является выделенной визуально, но физически она не выделена. Она сфокусирована, но не выделена. Обращайте внимание на форму курсора в служебной колонке smile

Но это, конечно, зависит от настроек грида.

Добавлено через 8 минут и 26 секунд
offline, а ещё советую прочитать справку на тему ForEachRow()
ms-help://borland.bds5/ExpressDataController.BDS5/ExpressDataController/IDH_TcxCustomDataController_ForEachRow.htm

Это сообщение отредактировал(а) Akella - 25.9.2009, 07:57

offline

Дата 25.9.2009, 22:15 (ссылка)

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

Загрузка ...

Опытный

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

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

Большое спасибо, обязательно попробую!!!

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