VPF::Выделение и копирование групп записей

SuperLamer

Дата 18.4.2006, 21:05 (ссылка)

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

Загрузка ...

Новичок

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

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

Уважаемые участники форума! Помогите, пожалуйста!
Общее: БД: на Delphi 7.
Можно как-нибудь сделать, чтобы в ДБГриде можно было выделять сразу по нескольку записей в столбце и КОПИРОВАТЬ их в другие столбцы ДБГрида?

Знаю про свойства: DB.Grid.Options (dgEditing, …)! Но там ничего нет такого!

Заранее спасибо за ответ!

Это сообщение отредактировал(а) SuperLamer - 18.4.2006, 21:07

Fast

Дата 19.4.2006, 02:00 (ссылка)

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

Загрузка ...

Шустрый

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

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

Загляни в Object Inspector.
Потом нажимай на плюсик Option.
Ищи строку dgMultiSelect и выстави её в true.
smile

SuperLamer

Дата 19.4.2006, 09:17 (ссылка)

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

Загрузка ...

Новичок

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

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

Fast - спасибо за ответ!

Цитата

Ищи строку dgMultiSelect и выстави её в true.

Не знаю,может я чего не так делаю, но в dgMultiSelect - действительно выделяется группа записей, НО они не копируются так же группой!

Tror

Дата 19.4.2006, 11:33 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 193
Регистрация: 29.4.2005
Где: Кишинёв

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

Цитата(VCL Reference)

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: Integer;
  s: string;
begin
  if DBGrid1.SelectedRows.Count>0 then
    with DBGrid1.DataSource.DataSet do
      for i:=0 to DBGrid1.SelectedRows.Count-1 do
      begin
        GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
        for j := 0 to FieldCount-1 do
        begin

          if (j>0) then s:=s+', ';
          s:=s+Fields[j].AsString;
        end;
        Listbox1.Items.Add(s);
        s:= '';
      end;
end;

данны пример копирует все выделенные строки дбгрида в листбокс.
переделать так, чтоб копировалось в другой дбгрид думаю труда не составит

Удачи ;)

Это сообщение отредактировал(а) Tror - 19.4.2006, 11:33

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

Не говори всегда что знаешь, но знай всегда что говоришь. /Клавдий/============================================Кто может -- тот делает. Кто не может... тот получает сертификат MCSE ;)

SuperLamer

Дата 19.4.2006, 15:58 (ссылка)

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

Загрузка ...

Новичок

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

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

Tror- большое спасибо за ответ!
Действительно данная процедура выполняет копирование в Listbox. Но как теперь сделать копирование обратно!

Вероятно также существует процедура?

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